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This  volume  contains  documentation  for  the  B0X80  System. 
This  documentation  is  presented  in  a series  of  appendices.  Each 
contains  a set  of  charts,  tables,  or  program  listings  which 
describe  the  BOX  80  System. 
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TABLE  A- I 

FEAT  Data  File  Format 


HEADER  BLOCK: 

NAME, LABLF.JDX, LB, IC,MAXV,IOPT,IHIS, FIRS, FLAS 

DATA  BLOCK: 

FEAT(JDX,LB) 


TRAILER  BLOCK: 

FMIN  (JDX) ,FMAX(JDX) 


Definitions: 

NAME 

LABLF 

JDX 

LB 

IC 

MAXV 

IOPT 

IHIS 

FIRS 

FLAS 

j 


(Implicit  type  unless  indicated) 

- File  name,  4HFEAT 

- Label,  nnnn  user  input 

- Number  of  features  +3,  data  buffer  X-dimension 

- Number  of  fectors,  per  block 

- Number  of  pattern  classes 

- Maximum  vectors  per  block 

- Scaling  option  used  by  CREATE 

- Histogram  option  used  by  CREATE 

- Minimum  component  value  over  all  dimensions 

- Maximum  component  value  over  all  dimensions 

- 1 l j 1 JD 


l 

feat  (j,  0 

FEAT  (JD+1,0 
FEAT  (JD+2,0 
FEAT  (JD+3,*) 
FMIN  (j) 

FMAX  (j) 

FMIN  (JD+1) 
FMAX  (JD+1) 
FMIN  (JD+2) 
FMAX  (JD+2) 
FMIN  (JD+3) 
FMAX  (JD+3) 


- 1 < * < LB 

- Vector  component 

- Integer  vector  number 

- Integer  class  identifier 

- Vector  energy  value 

- Minimum  component  for  this  dimension 

- Maximum  component  for  this  dimension 

- 1 
- 2 

- 98 

- 99 

- 0. 

- 0. 
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TABLE  A- 1 1 


CLAS  File  Data  Structure 


HEADER  RECORD: 

NAME ,LA8LC , JDX , ICX  ,NTC ,NBUC ,MAXKV , 

...  NENT,NCIX,MSCAL ,MZAPD 
DATA  RECORD: 

CLAS ( JDX, i ) , l<i<_ICX 
VECTOR  BLOCK: 

CLAS(JDX,i ) , l£i<(NCIX-l) 

INDEX  BLOCK: 

CLAS  (JDX , i ) , NC I X<_i  <^I  CX 
OR 

LIST  (NENT.2) 

VECTOR  TYPES: 

MEAN:  CLAS(J.NCAV),  l<j<JD 
DEVIATION:  CLAS( j ,MCSD) , l<j<JD 
DEVIATION  (L):  CLAS( j ,NCSDL) , l<j<JD 
DEVIATION  (R):  CLAS(j .NCSDR) , l<j<JD 
HUSK:  CLAS  (j.NPOS),  l<j<JDX 
CMIN:  CLAS  (j.NCMIN),  l<^j <J D 
CMAX : CLAS  (j.NCMAX),  l<j<JD 


TABLE  A- III 


CLAS  File  Data  Item  Definitions  (1/2) 


VECTOR  TAGS:  (Type  is  implicit  unless  stated) 

(A)  i = NCAV.NCSD.NCSDL,  OR  NCSDR 

CLAS  (JD+l.NCAV)  - FLAC 

CLAS  (DJ+l.NCSD)  - FIRC 

CLAS  (DJ+1  .tiCSDL)  - FIRC 
CLAS  (JD+1, NCSDR)  - FLAC 

CLAS  ( D+2 , i ) - KTYP  (0,  1,  or  2 ^ NCAV.NCSDL, NCSDR) 

CLAS  (JD+3,1)  - NEXC 

(B)  i = NCMIN  OR  NCMAX  (LIMITS  VECTORS) 

CLAS  (JD+l,i)  - 0.0 

CLAS  (JD+2,i)  - -1  (NCMIN),  -2  (NCMAX) 

CLAS  (JD43,i)  - 98  ONCMIN),  99  (NCMAX) 

(C)  i = NPOS  (HUSK  VECTORS) 

CLAS  (JD+1,1)  - NEXKE 

CLAS  (JD+2,i)  - KTYP  (3,  4 . . . (MAXKV+l) 

CLAS  (JD+3,1)  - NEXC 
ITEM  DEFINITIONS: 

(A)  COMPONENTS,  l<j<JD 

CLAS  (j,NCAV)  - Mean  component  value  for  the  class 
CLAS  (j.NCSD)  - Standard  deviation  value  as  above 
CLAS  (j.NCSDL)  - Negative  zero-based  deviation  as  above 

CLAS  (j, NCSDR)  - Positive  zero-based  deviation  as  above 

CLAS  (j, NCMIN)  - Minimum  component  value  overall 

CLAS  (j, NCMAX)  - Maximum  component  value  overall 

CLAS  (j.NPOS)  - Vector  id  assigned  to  class  husk 
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TABLE  A- III 


CLAS  File  Data  Item  Definitions  (2/2) 

VARIABLE  DEFINITIONS:  (Variable  type  is  implicit) 

IC  - Number  of  FEAT  file  data  classes 

ICX  - Number  of  columns  in  CLAS  buffer 

NCIX  - First  column  of  LIST  area  in  CLAS  buffer 

JD  - Number  of  feature  dimensions 

JDX  - X-dimension  of  CLAS  buffer  = JD+3 

NAME  - File  name,  4HCLAS 

LABLC  - Label  nnnncc  set  by  user 

NTC  - Total  number  of  class  prototypes 

NBUC  - Number  of  histogram  intervals 

MAXKV  - Maximum  value  number  of  husk  vectors 

NENT  - Number  of  entries  in  LIST  index  array 

MSCAL  - Flag  indicates  vector  component  value  range 

MZAPD  - Flag  indicates  existence  of  zapped  values 

NCAV  - Column  number  of  a class  mean  vector 

NCSD  - Column  number  of  a class  deviation  vector 

NCSDL  - Column  number  of  a class  negative  deviation  vector 

NCSDR  - Column  number  of  a class  positive  deviation  vector 

NPOS  - Column  number  of  a class  husk  vector 

NCMIN  - Column  number  of  the  minimum  values  vector 

NCMAX  - Column  number  of  the  maximum  values  vector 

KTYP  - Vector  type  code 

NEXC  - Class  identifier 

NEXKE  - Pointer  to  next  open  entry  in  husk  vector 
FIRC  - Minimum  value,  all  components,  this  class 
FLAC  - Maximum  value,  all  components,  this  class 

A-5 


TABLE  A-IV 


HIST/DIST  File  Data  Structure 

HEADER  RECORD: 

NAME, LABEL, NHX ,JD, IDUM( 1 ) , . . . IDUM(6) 

DATA  RECORDS: 

NEXC.ISYM 

,KTR,NI ,NBUC,  . . . HISC  (NHX,JD) 

Definitions: 

(Type  is  implicit  unless  indicated) 

NAME 

- File  name,  4HHIST  or  4HDIST 

LABLC 

- nnnnmm  set  by  user 

NHX 

- X-dimension  of  data  array 

JD 

- Number  of  feature  dimensions 

I DUM ( 6 ) 

- Six  arbitrary  values 

NEXC 

- Current  class  id 

ISYM 

- Switch  indicates  histogram  pair 

KTR 

- First  position  of  "right"  histogram 

NI 

- Number  of  intervals  if  histogram  pair 

NBUC 

- Number  of  intervals  if  single  histogram 

For  the  following  items 


K = 1 or  KTR,  Kj<JD,  l^n<NI  or  NBUC 


HISC(K+0,j ) 

- Count  of  values  processed,  NUM 

HISC(K+1, j ) 

- Mean  value 

HISC ( K+2 , j ) 

- Standard  Deviation 

HISC(K+3,j ) 

- Interval  Containing  Mode 

HISC(K+4,j) 

- Minimum  value 

HISC(K+5,j) 

- Maximum  value 

HISC(K+6,j) 

- Mode  value 

HISC(K+7,j) 

- Mode  count  as  fraction  of  NUM 

HISC(K+n,j ) 

- Histogram  interval  counters 
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, TABLE  A -V 

L PROT  File  and  Record  Structure 

p FILE  STRUCTURE: 

Kiy'x,  jx  = JD+l 

PROT  (1,1),  . . . PROT  (j,l),  . . . PROT  (jx,l) 
PROT  (1,IC),  . . . PROT  (j,IC),  . . . PROT  (jx.IC) 


RECORD  STRUCTURE: 
l<i<IC 

ICLAS(i),  CAV ( 1 , i ) , CSOL(l.i),  CSDR(l,i),  . . . 
. . . CAV(JD,i ) , CSDL(JD,i ) , CSDR(JD,i) 

VARIABLE  DEFINITIONS : 

PROT(j.i) 

JD 
IC 

ICLAS(i) 

CAV(j.i) 

CSDL(j.i) 

CSDR(j.i) 


( 


- Class  (prototype)  definition 

- Number  of  features 

- Number  of  classes 

i.  L. 

- Identifier  for  I u class 

- Mean  for  component  J,  Class  I 

- Negative  deviation  for  component  J,  Class  I 

- Positive  deviation  for  component  J,  Class  I 
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TABLE  A-VI 

FVEC  File  and  Record  Structure 

FILE  STRUCTURE: 

1 <k_K , K = JD+2,  l<n<N 
FVEC ( 1,1) , . . . FVEC(k,l) , . . . FVEC(K.l) 
FVEC(1,N),  . . . FVEC(k.N),  . . . FVEC(K.M) 

RECORD  STRUCTURE: 

l<j<JD,  l<n<N 

IKNO  (n),  IVEC  (n),  FEAT  (j,n),  . . . FEAT  (JD,n) 
VARIABLE  DEFINITIONS: 

j - Feature  component  index 
n - Feature  vector  index 
k - FVEC  record  item  index 
FVEC(k,n)  - Record  item 
FEAT(j,n)  - Feature  component  j of  vector  n 
IKNO(n)  - Record  item  indicates  known  class 
IVEC(n)  - Record  item  identifies  feature  vector 


$ 


o 
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APPENDIX  B 
User  Input  Guide 


TABLE  B-I 


f 

DEFC  Control  Options  (CREATE) 


CREATE 

ENTER 

*abcd 

Entries  abed  may  be  in  any  order 


a Selects  feature  vector  transforms 

U feature  vectors  are  unitized  for  output 

S a minimum  and  maximum  component  value  is  obtained  for 

the  entire  input  data  set;  output  feature  vector 
components  are  scaled  to  this  value  range 

E feature  vectors  are  energy  normalized  for  output 

Q minimum  and  maximum  values  are  obtained  for  each 

component;  output  feature  vector  components  are  scaled 
to  the  associated  value  range 

N no  vector  transforms 


b Histogram  control 

H a HIST  File  is  output  containing  a distribution  and 

statistics  for  each  input  feature  vector  component 

A no  HIST  file  output 


c User  input  option 

n 0<n<9  input  to  user  read  routine 

d LOGF  control  switch 

L Journal  entries  of  user  inputs,  summary  statistics 

Y Exit  traces 

T Data  buffer  dump 

C| 
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TABLE  B-II 


DEFD  Control  Options  (DEFINE) 


DEFINE 

ENTER  MODE  AND  OPTIONS 
*a,bcde 

Entries  b-e  can  be  in  any  order 


a Mode  of  operation 

I initialize  a CLAS  file 

F follow-on  process  of  a CLAS  file 

b Print  file 

P Print  CLAS  file  at  end  job 

A no  action 

c Reallocate  memory 

E Extend  CLAS  file  memory  allocation 

a no  action 

d Save  option 

S Writes  newly  generated  file  over  input  file 

A Generates  a new  file 

e LOGF  Switch 

L Journal  record  of  file  headers,  control  inputs  and  memory 

allocations 

Y Traces  file  manipulations  and  routine  exits 

T Records  content  of  each  FEAT  record  processed 
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TABLE  B-III 

NEXCLA  Control  Inputs  (DEFINE) 


NEXT-CLASS 

ENTER  FUNCTION  AND  CLASS  ID 
*aaa,b,±cc 


Entries  a,b,c  are  in  fixed  order 


REFN 

DEFN 

Kdef 


Function  control 

generate  or  revise  symmetric  prototype 
generate  asymmetric  prototype 
kernel  options  (d,e,f  can  be  in  any  order) 
c reset  husk  with  program  calculated  vector  ids 

p reset  husk  with  interactively  picked  vector  ids 

s update  husk  with  manually  selected  vector  ids 


H 

A 


Histogram  option  control 

generate  a HIST  file  record  while  processing  this  class 
no  action 


+NN 

-NN 

00 


Class  identification 

use  husk  list  to  reject  vectors  from  prototype  generation 
ignore  husk 

ignore  husk,  initialize  full  CLAS  file  from  all  of  FEAT 
file 


ENTER  MAX  SIZE  KERNEL 
XX. XX 
*aa.aa 

aa.aa  Estimate  of  class  boundary  'diameter'  (Used  in  automatic 

husk  selection  stub) 


QUICK  PLOT  (Y/N) 

*a 

a Class  features  cluster  plot  control 

Y Plot  only  component  points 

N Plot  connected  lines 
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TABLE  B-III  (Continued) 
NEXCLA  Control  Inputs  (DEFINE) 


ENTER 

*a 

SCALING  OPTION  (U.C.M) 

a 

Class  features  cluster  plot  control 

# 

U 

Scale  components  to  max-min  of  data  set 

C 

Scale  components  to  max-min  of  class 

M 

Scale  components  with  Mahal anobi s'  Distance 

SET  HUSK  VECTOR 

A,  NV,  NV,  . . . (15)  | 

*a,bbb,bbb,.  . . J 

Insert/Delete  Control  1 

Add  feature  ids  to  husk  list 

Delete  feature  ids  from  husk  list  1 

Feature  selector  id 

Identifiers  must  be  in  increasing  order 


( 


A 

D 


bbb 

123 
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TABLE  B- IV 


SUBSET  Control  Inputs  (TRYOUT) 


Request  Entry 

ENTER  CLASS  00 

+CL  88 

98 
+99 

CC  1<CC<NTC 

DD,DD,.  . . NN 

99 

Else 


Description/Effect 

Quit  SUBSET;  end  TRYOUT 

Quit  SUBSET:  continue  TRYOUT 

Reinitialize  CLAS  file 

Zap  specified  dimensions  for  all  classes 

(No.  Prototype  Classes) 

Zap  Dimensions  as  above  (±)  for  specified  cl 
1<_NN<JD  (No  Feature  Dimensions) 

End  of  input  list 
Error 

NN  specifies  a component  or  dimension  of 
the  feature/prototype  space  which  will  be 
nullified  or  zapped  for  either  one  class  or 
all  classes  per  CL  entry 


TABLE  B-V 


FIGM  Control  Inputs  (TRYOUT) 


Request  Entry 

ENTER  F/M  SET  NUMBER  1,2 

0 

3 

SPECIFY  SUBSPACE  TAGS 
KK.KK,  . . . NN 

99 

Else 


Description/Effect 
Select  F/M  subspace 
User  sets  subspaces 
Exit  tryout 

1<NN<JD  (JD=No.  Feature  Dimensions) 
identifies  dimension  to  consider  next 

End  of  input  list 

Error 


The  order  in  which  KK  are  input 
defines  the  order  (and  so  the  content) 
of  the  set  of  nested  subspaces  which 
are  evaluated.  A 99  entry  indicates 
that  the  remaining  unspecified 
subspaces  may  have  any  order. 


i 

TABLE  B-VI 

DEFT  Control  Options  (TRYOUT) 

TRYOUT 

ENTER  OPTIONS 
*abcdef 

Entries  a-f  can  be  in  any  order 

a Summary  Answer 

A overall  error  rate 

C confusion  matrix  on  LOGF 

b Scaling  Options 

N none 

B scale  to  byte  (0-255)  range 

W scale  to  word  (0-32767)  range 

c Figure  of  Merit 

F calculate  a merit  figure  for  each  feature  dimension  for 

evaluation 

a none 

d Magnitude 

M use  Euclidean  norm  in  distance  measurements 

A use  Sup  norm  in  distance  measurements 

e Subset 

S allow  user  to  zap  dimensions  of  the  prototype  space  and 

generate  a new  CLAS  file  for  FORMAT  with  these  zaps. 

a none 

f Log  Switch 

L logs  certain  process  results  on  LOGF 

Y logs  exits  of  critical  routines  and  contents  of  certain 

buffers  when  changed 

T logs  results  of  intermediate  calculations 


TABLE  B-VII 

DEFT  Control  Options  (FORMAT) 

FORMAT 

ENTER  FILE  AND  FUNCTION 
*abc 


Enter  a-c  in  any  order  

a File  identifier 

F FEAT  file 

C CLAS  file 

H HIST  file 

D DIST  file  (produced  by  CREATE) 

b Function  identifier 

S strip  chart  output  of  any  data 

X hexadecimal  format  output  of  FEAT  or  CLAS  data 

P picture  of  a set  of  CLAS  prototype  boundaries  or  FEAT 

vectors 

c LOG  function  control 

L journal  entries  of  user  inputs 

Y exit  traces 

T data  buffer  dumps 
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TABLE  B- V III 

User  Inputs  to  FORMAT  Routines 

ENTER  PLOT  PARAMETERS 
ICPS.G 
*aaa,b 

aaaa  Terminal  data  rate  characters/second 
b Picture  control  ’ G ' -*•  gridv/ork  plot 

else  -v  strips  only. 


NEXT-RECORD 
NN-RECORD  ID 
*aa 


aa  Record  number,  n 

n = 0 n sequences  from  1 to  last  n 

n < n-prior  error 

n >_  n-prior  process  stated  record 

n > last  n-available  end  job 

ENTER  XMIT  PARAMETERS 
AAAA 
*aaaa 

aaaa  Address  (Hex)  for  output  data  lines 

PLOT  FOLLOWS 

TYPE  G TO  CONTINUE  NOW  AND  LATER 
*a 


a 


G continues  process.  When  cursors  appear,  a blank  reueats 
plot. 


1 'V  W 

f 

h 

1 

< 

[' 1 

TABLE  B-VIII  (Continued) 

> 1 

i 

User  Inputs  to  FORMAT  Routines 

i 

CLASS  = 

a,  RB  = b 

PICK  VECTORS  FROM  c TO  d 

i 

K,  VVV, 

VVV,  . . . (15) 

*e,fff,ggg,  . . . 

a,b 

Identify  data  class  and  current  record  block 

c,d 

Identify  first  and  last  vectors  remaining  in  current  block 

e 

Selection  option  for  fectors 

I 

within  interval  (fff ,ggg) 

L 

from  list  fff,ggg,hhh,  . . . 

C 

chosen  until  fff 

S 

skipped  until  fff 

/ 

E 

exit  this  class  of  vectors 

( 

Q 

quit  FORMAT  * 

(Options 

I,  and  L are  not  coded) 

CLASS  = 

a 

ENTER  SCALE  CONTROLS 

BB.B,  ZZ 

.Z,  EL. 

*aa.a,bb. 

b,cc. 

aa.a 

Base  grid  units 

n 

number  of  x-y  units  per  base  grid  block 

bb.b 

Z-axis  scale 

0 

n 

number  of  z units  per  z-axis  step 

cc. 

Viewing  angle 

( 

n 

angle  between  the  x-y  plane  and  the  observer's  line  of 
sight 

w 

. 

B-U 
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TABLE  B-IX 


TAPEIN  Execution  Procedure 

(This  procedure  assumes  an  SBC  80/20  system  with  16K  RAM  and  HAZELTINE 
2000  terminal  with  cassette  recorder.) 

Load  TAPEIN  module 

Insert  Bootstrap  Cassette* 

Power  up  recorder 
Engage  Drive  Head 
Rewind  C-.ssette 

Set  recorder  to  continuous  offline  page  mode 

Set  terminal  to  batch  mode,  110  band 

Play  back  header  file 

Clear  screen 

Enter  I3850(CR) 

Play  back  execution  file 
Enter  'escape1  character  at  lot 
Shift/transmit 
Execute  TAPEIN  Module 

Ready  recorder  as  above,  using  data  cassette 
Set  recorder  to  continuous,  online,  page  mode 
Enter  G3850(CR) 

Play  back  data  file 

N.B.  Bootstrap  cassette  can  be  constructed  from  the  listing  of  the 
TAPEIN  module  given  in  Appendix  I.  Reference  INTEL  SBC  80/20  User 
Guide  for  'I'  command  format  details. 
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TABLE  B-X 


Generating  a PROT  File  Cassette  Tape 


(This  procedure  assumes  a HAZELTINE  2000  Terminal  with  Cassette 
Recorder. ) 

r 

Insert  Cassette  (use  right-hand  drive  at  AFIT!) 

Power  up  recorder 
Engage  drive 
Rewind  cassette 
Write  cassette  header  file 

Set  recorder  to  continuous,  offline,  page  mode 
Set  terminal  to  batch  mode 
Clear  screen 

Enter:  control -shift-period,  control -shift-oh 
(use  no  carriage  return) 

Set  recorder  to  record/interlock  mode 
Enter:  carriage  return 
Set  recorder  to  reset  mode 
Write  cassette  data  file 

Set  terminal  to  full  duplex  mode 
ATTACH, BYTE  (produced  by  FORMAT  module) 

COPYBF, BYTE, OUTPUT  (no  carriage  return) 

Set  recorder  to  continuous,  online  page  mode 
Set  recorder  to  record/interlock  mode 
Enter  carriage  return 
Set  recorder  to  reset  mode  (at  eot) 

Rewind  cassette 


TABLE  C-I 


CREATE  LOGF  Outputs 


Routine 

LOGSW 

Output  and  Conditions 

DEFA 

L.T.Y 

Initialization  request  and  response 

DEFA 

L.T.Y 

Memory  allocation  record 

DEFA 

Y,T 

Exit  trace 

SCAN 

T,Y 

Exit  trace 

SCAN 

L.T.Y 

First  pass  scan  statistics 

COPY 

T 

Dump  of  input  data  buffer 

COPY 

Y.T 

Exit  trace 
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TABLE  C-II 


DEFINE  Terminal  Outputs 

Routine  Description 

DEFD  Requests  processing  mode  and  options 

Identifies  initial  CLAS  file  if  mode  'I'  or  option 
1 E ' used 

OPENX  Identifies  CLAS  and  FEAT  files  opened 

ALLOC  Requests  approval  of  memory/file  size  parameters 

NEXCL  Requests  next  class  id  and  function 

Requests  max.  size  husk  if  'C*  function  used 

Requests  plot  scale  options  if  * P ’ function  used 

Requests  husk  entries  if  'S'  function  used 

PHUSK  Prints  husk  entries  for  current  class  if  'S'  function 

used 

FANDER  Labels  class  features  cluster  plot 

Draws  cluster  plot 

WRCLAS  Identifies  output  CLAS  file  parameters 

DEFINE  Prints  end  of  job  error  messages 

ERR  Prints  error  prompt  ('?') 
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TABLE  C-JII 
DEFINE  LOGF  Output 


Routine 

LOGSW 

Output  and  Conditions 

DEFD 

L 

Log  of  Operating  node  and  options 

OPEMX 

L,T,Y 

FEAT  file  header  if  opened 

OPENX 

L.T.Y 

CLAS  file  header  if  opened 

DEFD 

L.T.Y 

Log  of  initial  CLAS  file  parameters 

DEFD 

T»Y 

Exit  trace 

ALLOC 

L.T.Y 

Record  of  memory  allocation 

ALLOC 

T.Y 

Exit  trace 

NEXCLA 

L.T.Y 

Record  of  control  parameters  set 

PHUSK 

— 

List  of  Husk  entries  for  current  class 
if  requested 

KERPUT 

T.Y 

Trace  of  file  manipulations  as  husk 
is  set 

CLASSX 

T.Y 

Trace  of  CLAS  file  pointers  for 
current  prototypes 

CLASSX 

T 

List  of  FEAT  file  contents 

CLASSX 

T.Y 

Exit  trace 

ADD 

T.Y 

Exit  trace 

DEL 

T.Y 

Exit  trace 

RFEAT 

T.Y 

Exit  trace 

RIX 

T.Y 

Exit  trace 

FANDER 

T.Y 

Exit  trace 

CDEFI 

T.Y 

Exit  trace 

Y.L 

Record  of  generated  prototype 

KERGET 

T.Y 

Exit  trace 

WRHIS 

L.T.Y 

Record  of  HIST  file  header 

L.T.Y 

HIST  file  record  id 

Y 

HIST  file  record  content 

PRCLAS 

L.T.Y 

CLAS  file  dump  (This  dump  can  be  forced 
by  initial  option  ' P 1 ) 
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TABLE  C-IV 


Routine 

DEFI 

OPENX 

OPENX 

DEFT 

INDEX 

INDEX 

INDEX 

MERIT 


SUBSET 


FIGM 


EVAL 

EVAL 

DOCU 

DOCU 

DOCU 

PRCLAS 

RFEAT 


TRYOUT  LOGF  Outputs 

LOGSW  Output  and  Conditions 

L,T,Y  Echo  of  initiation  requests  and  responses 

L,T,Y  FEAT  file  header,  if  opened 

L,T,Y  CLAS  file  header,  if  opened 

T,Y  Exit  trace 

L,T,Y  Index  to  CLAS  file 

L CLAS  file  dump  if  scale  transform 

T,Y  CLAS  file  dump 

T Distance  vectors  for  each  unque  prototype  pair 

L Average  interclass  distances  for  each  prototype 

T Intermediate  figures  of  merit  for  features 

Y Echo  of  SUBSET  initiation  requests  and  responses 

L Summary  by  prototype  of  features  zapped 

Y,T  CLAS  file  dump 

L,Y,T  Figures  of  merit  for  feature  dimensions 

Y,T  Echoes  specified  set  of  merit  figures 

L,Y,T  Subspace  tags  list 

T Distance  vector  to  selected  prototype  for  first 

five  vectors  in  each  FEAT  block 

Y,T  Feature  vectors  (first  five)  of  each  FEAT  block 

L,T,Y  Summary  performance  percentages 

Confusion  matrix  if  'C*  user  option 

L,T,Y  Subspace  tags  and  error  rates  if  1 F*  user  option 

L CLAS  file  dump 

T,Y  Exit  trace 
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TABLE  C-V 

FORMAT  LOGF  Outputs 


Routine 

LOGSW 

Output  Description 

DEFA 

L,Y  ,T 

Record  of  FORMAT  initialization 

OPENH 

L.T.Y 

Record  of  HIST  file  initialization 

OPENX 

L.T.Y 

Record  of  FEAT,  and  CLAS  file  initialization 

INDEX 

T 

Exit  trace 

INDEX 

L 

Format  printout  of  CLAS  file  if  re-scaled 

NEXREC 

L.Y.T 

Journal  entry  for  record  processed 

NEXVEC 

l.y.t 

Journal  entry  for  vectors  selected 

FILBUF 

L 

Printout  of  statistics  from  HIST  file  record 

FILBUF 

Y 

Printout  of  histograms  from  HIST  file  record 

PICT 

L.T.Y 

Journal  entry  for  3-D  plot  parameters 

RHIST 

L.T.Y 

Journal  entry  for  each  HIST  record 

APPENDIX  D 
Module  Parameters 

( 


j < 

* 

TABLE  D-I 

I/O  Parameters  for  CREATE  Subroutines 

DEFC ( I EOJ ,NW,JDK,NHX) 

SCAN(BUF,HISG,VECS,IEOJ,NW,NHX) 

COPY(BUF,FVEC,HISG,IEOJ,NW,JDX,NHX,VECS) 

GETFEA( IUSER,BUF,NW,FVEC,JD,IC,NVEC,IGC,IEOJ) 
PRHIST(HISG.NHX) 

IEOJ  - Error  flag 
NW  - User  buffer  size 
JDX  - Feature  vector  buffer  X dimension 
NHX  - Histogram  buffer  X dimension 
1 BUF  - User  buffer 

HISG  - Histogram  buffer 

VECS  - Temporary  work  area 

FVEC  - Feature  vector 

IUSER  - Name  of  user  file 

JD  - Number  of  feature  vector  components 

IC  - Number  of  a priori  data  classes 

NVEC  - Feature  vector  number 

IGC  - Option  switch  from  terminal 


y' 


1 
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TABLE  D-II 


I/O  Parameters  for  DEFINE  Subroutines 

DEFU(IEDJ) 

ALLOC(KC,NE,HUSKR,IEOJ) 

NEXCLA( FEAT , CLAS , JDX , I EOJ ) 

CLASSX(FEAT, CLAS, HISC, JDX, NHX.IEOJ) 

CDEFI (FEAT, CLAS.HISC, JDX, NHX.IEOJ) 

FANDER ( CLAS , JDX .FEAT , I EOJ ) 

PHUSK(CLAS , JDX , I EOJ ) 

KERPUT(CLAS , JDX ,NEXC , IDOJ ) 

SETUM(CLAS, FEAT, JDX, I EOJ) 

IEOJ  - Error  flag 

KC  - Number  of  a priori  data  classes 

NE  - Number  of  open  CLAS  file  vectors 

HUSKR  - Greatest  fraction  of  any  class  allowed  as  husk 

FEAT  - Feature  vectors  data  block 

CLAS  - Prototype  file  buffer 

JDX  - Feature  vector  buffer  X dimension 

HISC  - Histogram  file  buffer 

NHX  - Histogram  buffer  X dimension 

HEXC  - Class  being  processed 
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TABLE  D- III 


I/O  Parameters  for  TRYOUT  Subroutines 


DEFT(IEOJ) 

MERIT(FT,DISI ,DISN, CLAS, JDX) 

SUBSET ( CLAS , JDX , ICX , I EOJ ) 
FIGM(FT,JDX,IEOJ) 

EV AL ( F EAT , CLAS , CMX , JDX , NAX , 1C, I EOJ) 
LOOK 

DOCU(CHX, CLAS, JDX, HAX.IC) 


I EOJ 

- Error  flag 

FT 

- Work  area  contains  feature  merit  figures 

DISI 

j •_ 

- Work  area: interprototype  distance  to  Itn 

prototype 

DISN 

- Work  area:  interprototype  distance  to 

prototype 

CLAS 

- Prototype  file  buffer 

JDX 

- X dimension  for  feature  and  prototype  vector  buffers 

ICX 

- Y dimension  for  feature  and  prototype  vector  buffers 

CMX 

- Confusion  matrix  buffer 

NAX 

- Confusion  matrix  Y dimension  = NTC+1 

IC 

- Number  of  a priori  classes 
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Table  D-IV 


I/O  Parameters  for  FORMAT  Subroutines 


DEFF(IEOJ) 

XCLAS ( CLAS , BUF , H I D , JDX , NBX , I EO J ) 

XFEAT ( FEAT , BUF , HID, CLAS , JDX , NBX , IEOJ) 

XHIST (HIST ,BUF,H1D ,NHX ,NBX , IEOJ ) 

XMIT 

PICT(BUF,HID,NX,NY) 

STRIP (BUF.NX.NY) 

FILBUF(HIST,Bl)F,NHX,JI  ,JN,NX,NY,ICON) 

NEXREC(IEOJ) 

NEXVEC( ISEQ ,NVEC ,NRB , IEOJ ) 

IEOJ  - Error  flag 

CLAS  - CLAS  file  buffer 

BUF  - PLOT  buffer 

HID  - Hidden  line  buffer  for  PL0T3D 

JDX  - X dimension  of  CLAS,  and  FEAT  buffers 

NBX  - X dimension  of  PLOT  buffer 

FEAT  - FEAT  file  buffer 

NHX  - X dimension  of  HIST  file  buffer 

NX  - X dimension  of  PLOT  buffer 

NY  - Y dimension  of  PLOT  buffer 

HIST  - HIST  file  buffer 

JI  - Starting  component  number  for  buffer  fill 

JN  - Ending  component  number  for  buffer  fill 

ICON  - Switch  indicates  HIST  record  symmetry-type 

ISEQ  - Initialization  switch 

NVEC  - Selected  vector  number 

NRB  - Feature  record  block  number  = NBPR 
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TABLE  D-V 


Utility  Routine  Calling  Parameters  (1/2) 

ADD ( NAME , L I ST , NENT , NPOS , I EO J ) 

DEL (NAME, L 1ST, NENT.NPOS.IEOJ) 

INITC(NENT,LIST,IADD) 

RIX(NAME, LIST, NENT.NPOS.IEOJ) 

IEOJ  - Error  Flag 

NAME  - Identifier  for  requested  vector 

LIST  - CLAS  file  index  area 

NENT  - Number  of  entries  in  LIST 

NPOS  - Pointer  to  requested  vector 

IADD  - Switch  allows  added  index  initialization 

STATH(LAS,FIN,FT,FHIS,NI .FIRS.FLAS) 

STATX ( LAS , F I N , FT , CAV , CSD , I SW ) 
XSCAL(FMIN,FMAX,VEC,NN, SCALE, IOP) 

LAS  - Switch  triggers  final  calculations 

FIN  - Input  value 

FT  - List  of  8 statistics  (see  code) 

FHIS  - Array  of  containing  histogram 

NI  - Number  of  histogram  intervals 

FIRS  - Least  value  in  data  range 

FLAS  - Greatest  value  in  data  range 

CAV  - Mean  of  input  data  stream 

CSD  - Standard  deviation  of  input  data 

ISW  - Switch  selects  deviation  algorithm 

FMIN  - Vector  of  minimum  component  values 

FMAX  - Vector  of  maximum  component  values 

VEC  - Input  vector 

NN  - Order  of  input  vector 

SCALE  - Requested  output  value  range 

IOP  - Switch  selects  scaling  algorithm 


] ( 

J \ TABLE  D-V 

Utility  Routine  Calling  Parameters  (2/2) 

... 

L.  \\  INDEX (CLAS, JDX, ICX, IEOJ) 

KERGET(CLAS , JDX ,NEXC , IEOJ ) 
PROCLAS(CLAK,LIST,CLAS,JDR,ICX) 

LOADC(CLAS, JDX, ICX, IEOJ) 

OPENH(LABLH.IEOJ) 

OPENX ( IMOD , I E , LABLC , LABLE , IEOJ) 

RHIST(HISC,NHX, IEOJ) 

RFEAT(FEAT, JDX, INIT, IEOJ) 

WRCLAS(CLAS, JDX, ICX, IS, LABLC) 

WRHIS(HISC, HEXC.ISYM, LABLC, NBUC,KTR,NI ,NHX, JDX) 


, 


CLAS  - Prototype  data  file  buffer 

JDX  - X dimension,  number  of  components  +3 

ICX  - Y dimension,  number  data  vectors  in  CLAS 

IEOJ  - Error  flag 

NEXC  - Data  class  indicator 

CLAK  - Prototype  data  file  for  integer  reference 
LIST  - Prototype  data  file  index 
LABLH  - HIST  file  label 

IMOD  - Mode  switch,  controls  opening  of  FEAT  file 
IE  - Extend  switch,  controls  opening  of  CLAS  file 
LABLC  - CLAS  file  label 
LABLF  - FEAT  file  label 
HISC  HIST  file  buffer 

NHX  - X dimension,  number  of  intervals  +8 
FEAT  - FEAT  file  buffer 

INIT  - Switch  controls  FEAT  file  positioning 

IS  - CLAS  file  header  parameter 

ISYM  - Flag  indicates  histogram  pair 

NBUC  - Number  of  histogram  intervals 

KTR  - First  value  of  second  set  of  statistics 

NI  - Number  of  intervals  if  histogram  pair  exists 


I 
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TABLE  D-VI 


Support  Routine  Calling  Parameters  (1/2) 

MARK(IX,IY,IDX,IDY) 

ENER(VEC.N) 

PL0T3D(FCN2D,HID,IMAX,JMAX) 

PLX(X,Y,II ) 

I LINE 

IASORT(IN.NN) 

FDS0RT(FIN,ITAG,F01IT,NN) 

IX  - X-position  of  mark  in  screen  units 
IY  - Y-position  of  mark  in  screen  units 
IDX  - X-movement  for  mark 

IDY  - Y-movement  for  mark 

VEC  - Array  of  components  of  vector 

N - Order  of  vector 

FCN2D  - Array  of  surface  Z values 

HID  - Work  area 

IMAX  - X-dimension  of  FCN2D 

OMAX  - Y-dimension  of  FCN2D 

X - Pen  position  in  inches 
Y - Pen  position  in  inches 

II  - Control  switch  for  pen  up/down/origin 
IN  - Vector  of  integer  inputs 

NN  - Order  of  input  vector 
FIN  - Array  of  real  input  values 
ITAG  - Array  of  value  "tags" 

FOUT  - Array  of  real  output  values 
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TABLE  D-VI 


Support  Routine  Calling  Parameters  (2/2) 

DIV  Input  BC,D 
Output  C,B 

BC  - Unsigned  dividend 
D - Unsigned  divisor 
C - Quotient 
B - Remainder 
BUBCD  Input  DE.HL 

Output  BCD  characters 
DE  - Unsigned  integer 
HL  - Pointer  to  lowest  buffer  location 
CLOOP  Input  B,HL 

Output  HL,B,A,  character  print 
B - Number  of  characters 
HL  - Pointer  to  lowest  character  in  string 
A,B,HL  - Destroyed  on  output 
OUTB  Input  HL,DE,B 

Output  Typewriter  print 
HL  - Address  of  values  list 
DE  - Address  of  putput  line 
B - Length  of  output  line 
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TABLE  D-VII 


SBC  80/20  Hexadecimal  Data  Format 


DATA  LINE  VARIABLES: 

LS , LNUM , LADR , LTYPE , LBYTE ( 16 ) , LSUM 


VARIABLE  DEFINITIONS: 

LS  - Start  of  line  character  ( 1H: ) 

LNUM  - Count  of  the  number  of  data  bytes  to  follow, 

encoded  in  hexadecimal  notation  (A2) 

LADR  - Address  of  the  storage  location  for  the  first 
data  byte,  encoded  in  hexadecimal  notation  (A4) 

LTYP  - Line  type  (00-data  line;  01-end  record  line) 

LBYTE  - A set  of  up  to  16  data  values,  each  represented 
as  a hexadecimal  number  (A2) 

LSUM  - A checksum,  in  hexadecimal  of  the  sum  255  - 
I 

22  where  one  K-  represents  each  2-character 
i=l  1 1 

hexadecimal  value  following  the  start  of  line 
character  ( 1H : ) 


TABLE  D-V III 


User  Input  Subroutine  Parameters 


GETFEA( IUSER,BUF,NW,FVEC,JD,IC,NVEC,IGC,IEOJ) 

IUSER  - Name  of  user  input  file 

BUF  - Address  of  input  buffer 

NW  - Number  of  words  allotted  input  buffer 

FVEC  - Feature  vector  passed  to  system  from  module 

JD  - Number  of  feature  dimensions 

IC  - Number  of  pattern  classes 

NVEC  - Identifier  for  FVEC  within  its  class 

IGC  - Input  control  switch 

IEOJ  - Control  flag 
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£380  MACRO  ASSEMBLER.  VER  2.2  ERRORS  = 0 RACE  i 


;m»H»H*tm4»4»HHHUnTAFEUJuiMJwj.4umH«.H.4*m»4mmt00000l 

J«4444»444I444*CASSETTE  TAPE  READ  UTILITT  FOR  BOX80  STSTEB««mMm»000002 


iiomtiffH 

EQUATE  STATEMENTS  OMtimumm* 

000003 

0487 

NMOUT  EfiU 

0487H  !80/20  OUTPUTS  2-CHARS  FOR  BTTE 

000380 

003C 

CETCH  EOU 

003CH  180/20  CUD  PROCESSOR 

000390 

0348 

CETCH  ECU 

0348H  1 CHARACTER  INPUT 

000391 

02EE 

CNVBN  ESU 

02PEH  1 CONVERTS  TO  BINART 

003392 

033A 

ERROR  ESU 

033AH  .ERROR  HANDLER 

000393 

3850 

ORC  3653H 

1 CASSETTE  TAPE  READ 

000770 

3850 

CC4B03 

XC05:  CALL  GEK 

H IREAD  A CHAR 

000140 

000780 

3853 

FE3A 

CPI 

1START  LIKE  PROCESSING 

000150 

000790 

3855 

C25038 

JNZ  KC05 

1 AT  THE  FIRST 

000160 

000300 

3858 

AF 

IRA  A 

1 SETUP 

JS00170 

000810 

3859 

57 

MOV  DiA 

i FOR  CHECKSUB 

000180 

000820 

385A 

CD7F38 

CALL  BTTEX 

IREAD  PAIR  OF  HEX  CHARS 

000190 

000330 

385D 

CA3C00 

JZ  CETCM 

1SUIT  A 0 RECORD  LEM 

000200 

000840 

3860 

5F 

MOV  EiA 

5 SAVE  RECLEN 

000210 

000850 

3861 

CD7F38 

CALL  BTTEX 

.GET  HI  LOAD  ADDRESS 

000220 

000860 

3864 

67 

MOV  HiA 

1 AND  SAVE  IN  H 

mm 

000870 

3865 

CD7F3B 

CALL  BTTEX 

1CET  LO  LOAD  ADDRESS 

00024, 

000880 

3868 

6F 

MOV  LiA 

1 AND  SAVE  IN  L 

000250 

000890 

3869 

CB7F38 

CALL  BTTEI 

1CET  RECORD  TTPE 

000260 

000900 

386C 

4B 

MOV  CtE 

i AND  SAVE  IN  C 

000270 

000910 

386D 

CC7F38 

XC10:  CALL  BTTEX  IREAD  TAPE  BATA.  ARB 

000280 

000920 

3870 

77 

BOV  M ■ A 

1 STORE  AT  MEMORY  LOC 

003290 

000930 

3871 

23 

INK  H 

iGET  NEXT  KEB-LOC 

000300 

000940 

3872 

ID 

BCR  E 

1BECR  REC-LEN 

000310 

000950 

3873 

C26D38 

JRZ  IC10 

1 AND  LOOP 

000320 

000960 

3876 

CD7F38 

CALL  BTTEX 

1CET  CHECKSUM 

000330 

000970 

3879 

C23A03 

JNZ  ERROR 

i AND  TEST  LINE 

000340 

000980 

387  C 

C35038 

JHP  IC05 

HE  OK.  GET  NEXT  LINE 

000350 

000990 

387F 

C5 

BTTEX:  PUSH  B 

1ASCII  BTTE  INPUT. 

000360 

001000 

3880 

CD4803 

CALL  CETCH 

IREAD  CHAR 

000370 

001010 

3883 

4F 

MOV  C.A 

! 

000380 

001020 

3884 

CDFE02 

CALL  CMVEN 

1CHAR— >HEXADECIBAL 

000390 

001030 

3887 

07 

RLC 

1 BOVE 

000400 

001040 

3888 

07 

RLC 

i TO 

000410 

00)050 

3889 

07 

RLC 

1 UPPER 

000420 

00)060 

388A 

07 

RLC 

1 4-BITS 

000430 

001070 

388B 

47 

MOV  B.A 

.SAVE  RESULT  IN  B 

000440 

001080 

3888 

CD4803 

CALL  CETCH 

’.READ  CHARACTER 

000450 

00)090 

3S8F 

4F 

BOV  C.A 

1 

000460 

001100 

3890 

CDFE02 

CALL  CMVBM 

{CONVERT 

000470 

001110 

3893 

E0 

ORA  B 

10R  IN  UPPER  4 BITS 

000480 

001120 

3894 

4F 

BOV  C.A 

.SAVE 

000490 

001130 

3895 

62 

ABB  B 

1INCREBENT  CHECKSUB 

003500 

001140 

3896 

57 

BOV  B.A 

000510 

001150 

3897 

79 

BOV  A.C 

{RESTORE  HEX  TO  A 

000520 

001160 

3893 

Cl 

POP  B 

{RESTORE  B 

000530 

001170 

3399 

C9 

RET 

• 

» 

000540 

001180 

{80/20  STSTEB  CODE 

000550 

001190 

T-? 


Tr  - 


8083  KACRO  ASSEMBLER.  VER  2.2  ERRORS  - 0 RACE  2 


CETCH:  CALL  Cl 

I READS  CHAR 

003560 

001200 

AMI  7FH 

J TURKS  OFF  PARITY  BIT 

003570 

081218 

MOV  C.A 

‘.RETURN  IN  CP.EC 

000580 

001220 

RET 

J 

002590 

001230 

Cl!  IK  OEDH 

.'GET  CONSOLE  STATOS 

000600 

001240 

AM!  02H 

; CHECK  BUFFER  ROY 

030610 

001250 

02  Cl 

I LOOP  IF  HOT 

080620 

081263 

Hi  OECH 

i INPUT  IF  ROT 

003630 

001270 

RET 

i 

003640 

001283 

CtIVBII:  MOV  A.C 

I CONVERT  TO  BINARY 

000658 

001290 

SOI  ’0’ 

iSOBTR  ’0’  CODE 

000660 

001300 

CPI  10 

.‘CHECK  0-?  RESULT 

000670 

001310 

RH 

I IF  SO.  DONE 

883680 

001320 

SOI  7 

I ELSE  RESULT-)  7-23 

003698 

001330 

RET 

1 

000700 

001348 

END 

! 

080718 

001341 

NO  PROGRAM  ERRORS 


8080  MACRO  ASSEMBLER.  VER  2.2  ERRORS  = 0 PACE  3 


STH80L  TABLE 


* 01 

A 

0007 

B 

0080 

BITE)! 

387F 

OWN 

02FE 

D 

0002 

E . 

0003 

CETCH 

0348 

CETCH 

0030 

H 

0304 

H 

0036 

NHOUT 

0487  * 

PSW 

0006 

XC35 

3850 

IC10 

3B6D 

STOP 

2.078  CP  SECOUQS  EXECUTIOM  TIME 


001  BLOCK!!  1 O 

002  A 0000078 

i 003  B 0800008 

004  BYTE*  0341778 

005  C 0000318 

006  CNV8K  0013768 

007  D 0000028 

008  E 0080038 

0001  00?  ERROR  0314720 

033A  010  CETCH  0013100 

0005  011  CETCH  0000743 

0006  012  H 0030040 

013  L 00P0058 

014  K 0038068 

015  MOOT  0022070 

016  PSD  00P006O 

017  SP  0000068 

018  XC05  0341208 

01?  XC10  0341550 

t 

:103850?0CD4803FE3AC25838AF57CD7F38CA3C003E 

:103860005FCB7F3867CB7F386FCB7F384BCO7F38CB 

M038700877231DCZ6D38CD7F38C23A03C35038C597 

M0388000CD48034FCDFE0Z0707370747CD48834F3A 

!0A38?003CDfE02E04F825779ClC?8t 

:00000003i!0 

t 


8083  MACRO  ASSEMBLER*  VER  2.2  ERRORS  = 3 PACE  1 


000100 

iiummumitCL 

ASSIF1ER  FOR  ’ ROSES’  ST$TEM«*nnmiHH 

000283 

IhmhhhmuhEE 

SIGNED  FOR  INTEL  83/20  USE  tumimmu 

033300 

080400 

lumuiutiiTjtfh  STRUCTURES  FOR  DECIDE*”********** 

000500 

ICLASiJiI) 

ICLAS(lST)=liCAV(l*I)  fCSBLCl.DfCSDRllfl) »... 

832600 

1 

..  .iCAVIJDil)  iCSDLICCiI)  iCSDRUOi!)  i.. . 

030780 

J 

ICLAS (IAS) =IC .CAV t ! . IC1 * CSDL ( 1 » id . CSCR ( 1 1 10 1 . . . 

000800 

1 

...iCAVtJOiICI  iCSDKJDiiCl  .CSDR(JDiIC)  f 

008908 

.TEAHJiLU 

IKW0=1 

. 1 VEC= 1 . FEAT  ( 1 ,LL!  * . . .FEAT  I.J8  »LL ) » . . . 

031038 

i 

INNCM. 

IVEC-NViFEAT(l'lL) . . . .FEAT (JB.LL) .... 

081180 

» 

IKMO = I C » 1 VEC=KW . FEAT (l.LL) . . . .FEAT ( JDiLL)  f 

0312C0 

i 

001210 

» 

801220 

» 

001238 

;»****$* 

EQUATE  STATEMENTS 

031300 

8303 

START: 

DS 

0 IEEG1N  PROGRAM  LADLE 

001310 

!«»THESE  EQUATES  OUST  EE  RESET  FOR  EACH  DATA  SET 

001328 

3F80 

STACK 

ECU 

3F80K  i INITIAL  STACK  AOCRtSS(POINTER) 

081403 

3F48 

PILE 

EOU 

3F40H  i SPACE  FOR  STACK 

081450 

3 m 

FEAT 

EOU 

3D08H  IEASE-A  FOR  FEAT  FILE  BLOCK 

001500 

3888 

Cl  AS 

EOU 

3B83H  IEASE-A  FOR  CLAS  FILE  DATA  AREA 

081682 

00EC 

USTAT 

ECU 

0EDR  IUSART  STATUS  PORT  ADDRESS 

001703 

8881 

0K2G0 

EOU 

01H  IREADt  STATUS 

001808 

83EC 

UPORT 

EOU 

0ECH  IUSART  PORT  ADDRESS 

001980 

3 m 

CODE 

EOU 

3808H  I ADDRESS  OF  CODE  ELOCK 

031910 

3940 

~ 

DATA 

EOU 

394BH  I ADDRESS  OF  DATA  ELOCK 

031920 

3980 

SUES 

EQU 

3980H  IAE3RESS  OF  SUBROUTINE  BLOCK 

081930 

8303 

EUD 

EOU 

03H  INUKBER  OF  DIMENSIONS 

001932 

8083 

ELE 

EOU 

03H  I NUMBER  OF  FEATURE  VECTORS  PER  ELOCK 

001934 

0003 

E1C  EOU 

83H 

! NUMBER  OP  CLASSES 

081936 

i 

681940 

» 

001950 

! 

001960 

3800 

ORG 

CODE  I 

002808 

ImEECIN  PROCESS 

082260 

I««G0T0  IF7 

002300 

3808 

31803F 

EP0: 

UI 

SP. STACK  UNITIALIZE  STACK  POINTER 

002400 

3803 

3E03 

MVI 

A.EJD  ISET  UP 

002418 

3885 

325E3? 

$78 

JB  } JB-  NUMBER  OF  DIMENSIONS 

002412 

3808 

3E03 

MVI 

A. ELE  ISET  UP 

002414 

380A 

326739 

STA 

LE  I NUMBER  OF  VECTORS  PER  ELOCK 

002416 

3800 

3E03 

MVI 

A.EIC  ISET  UP 

002418 

380F 

325F39 

STA 

IC  I NUMBER  OF  CLASSES 

002420 

3812 

C3F838 

JNP 

1F7  ICET  NEXT  FEAT  BLOCK 

002588 

;*hneit  fvec 

082600 

;««u--iui 

002788 

?*** IF < (LB-LL) .LT.0)  GOTO  0S6 

002800 

i««»IKll0sFVEC(liLU 

002930 

» »** 1 VEC=FVEC (2*IL) 

003080 

*««IslC 

003180 

AD-A066  197  AIR  FORCE  INST  OF  TECH  WRI9HT-PATTERS0N  AFB  OHIO  SCH— ETC  F/9  5/B 

A DEVELOPMENT  SYSTEM  FOR  MICROPROCESSOR  BASEO  PATTERN  RECOONIZE— ETC (U) 
DEC  7«  JR  LEARY 
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8080  MACRO  ASSEMBLER.  VER  2.2  ERRORS  = 8 PACE  2 


i»HMND=Z55 


3815 

215339 

NVl: 

LI  I 

H.LL 

3818 

46 

MOV 

B.M 

3819 

04 

INR 

B 

381A 

3A6739 

LDA 

LB 

3310 

90 

SUB 

B 

381E 

FADC38 

JM 

0S6 

3321 

70 

MOV 

M.B 

3822 

2A5839 

LHLD 

AFL 

3325 

23 

INI 

H 

3826 

7E 

MOV 

A.M 

3827 

325439 

STA 

IKNO 

382A 

23 

INI 

H 

3828 

7E 

MOV 

A.M 

332C 

325739 

STA 

IVEC 

382F 

225A39 

SKLD 

AFL0 

3832 

21323B 

LII 

H.CLAS 

3835 

2D 

DC  I 

H 

3836 

226039 

SHLD 

ACL  I 

3339 

215F39 

LII 

Hr  IC 

383C 

7E 

MOV 

A.M 

3330 

325D39 

STA 

I 

3340 

3EFF 

MV  I 

A.0FFH 

3842 

326539 

STA 

MND 

iiMNEIT  aASS 

;»»«i=i-i 

HhIFII.EQ.0)  GOTO  0A5 
! * * * t CLAS  -CLAS ( 1 1 1) 

;*• » j- jb 
»«nMIF=l 


3345 

215D39 

NCZ: 

LII 

Hr  I 

3843 

7E 

MOV 

ArM 

3349 

3D 

OCR 

A 

384A 

FA8938 

JM 

0A5 

334D 

77 

MOV 

M.A 

384E 

23 

INI 

H 

334F 

7E 

NOV 

A.M 

3850 

325C39 

STA 

J 

3853 

2A6039 

LHLD 

ACLI 

3356 

23 

INI 

H 

3357 

7E 

MOV 

A.M 

3353 

326239 

STA 

IFLAS 

385B 

226039 

SHLD 

ACLI 

385E 

2A5A39 

LHLD 

AFL0 

3361 

225839 

SHLD 

AFL 

3864 

3E00 

MV  I 

A.0D 

3866 

326339 

STA 

MIF 

i«i«NEIT  feat 

tVflJ'J'l 


»**»IF (J.EQ.0)  GOTO  DC 4 
;»»»i--CAvtj,n.  *t--A) 


023158 

CET  FEAT  VECTOR  003200 

INDEX =Ll>  003300 

INCREMENT  803400 

CET  LB  AND  003420 

CALC  (LB-LL)  003430 

COTO  OSS  IF  LT  ZERO  003500 

ELSE  SAVE  NEW  LL  083600 

GET  FEAT  COMPONENT  POINTER  003700 

INCREMENT  003890 

AND  003900 

SAVE  IKNO  004900 

INCREMENT  004100 

AND  024200 

SAVE  IVEC  004300 

SAVE  FEAT  VECTOR  EASE  A -1  004400 

GET  CLAS  BASE-A  004500 

AND  DECREMENT  004550 

TO  SAVE  A1CLASI-1  004600 

CET  NO.  CLASSES! 1 0 384700 

AND  SET  004800 

CLAS  INDEX=I  034900 

PRESET  MND  004950 

TO  255  004960 

005800 

005100 

005200 


005302 

005400 

005450 


CET  CLAS  005580 

IMBEX=I  005600 

DECREMENT  005780 

COTO  0A5  IF  ZERO  305800 

ELSE  SAVE  NEW  1 085900 

CET  NO  DIMENSIONS!.^)  026008 

AND  SET  026100 

J-LIHIT  ON  FEATS  006150 

CET  CLAS  BASE-A  -1  086200 

INCREMENT  006250 

TO  CET  ICLAS  306300 

AND  TO  SAVE  006400 

AINEXT  CAVl-l  096500 

CET  FEAT  VECTOR  BASE  -1  006600 

AND  RESET  COMPONENT  POINTER  006708 

PRESET  NXF  006750 

TO  MIN  006760 

336800 


006900 

0070000 

1397100 


J-3 


Jfa" 
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.•#«if=CSDUJil),  TI=C) 
it«Z*C$DRU.I>i  Z('D) 
NhE=EEAT(JiLL) 

•«mi=x-f 

imlFIX  CE  01  GOTO  NF3A 

imllFSA:  T=X/T 
i««T=I/t 

i»«»IF(HIF.CE.TI  GOTO  RF3 
ini  NIF=T 
;»»«  COIO  NF3 


3869 

215C39 

HF3: 

HI 

Hi  J 

•GET  A(J-LIHIT) 

336C 

35 

OCR 

N 

i AND  DECREHFNF  HEHORf 

386D 

FAA036 

JH 

DC4 

iCOTO  DC4  IF  LT  ZERO 

3870 

2A6039 

LHLD 

ACL  I 

IGET  BASE-A  FOR  PROTO (J.I) 

3873 

23 

INI 

H 

i BUNP  TO  NEXT  ENTRY 

3874 

7E 

NOV 

AiN 

i GET  CAV(JiI) 

3875 

23 

INI 

H 

i BUNP  TO  NEXT  ENTRY 

3876 

56 

NOV 

DiM 

! GET  CSDKJiIli  DIVISOR 

3877 

23 

INI 

H 

i BUNP  TO  NEXT  ENTRY 

3878 

4E 

NOV 

CiN 

i GET  CSBRWi Hi  DIVISOR 

3879 

226039 

SHLD 

ACL  I 

'.SAVE  BASE-A  FOR  PRCTOIJiIl 

387C 

2A5839 

LHLD 

AFL 

'.GET  FEAT  VECTOR  EASE 

387F 

23 

INI 

H 

i BUNP  TO  NEXT  COKPCNENT 

3880 

225839 

SHLD 

AFL 

i SAVE  NEH  EASE 

3883 

96 

SUE 

N 

IX=CAV(J.I)-FEAT (J.L) 

3884 

F28838 

JP 

NF3A 

i GOTO  NF3A  IF  POS 

3887 

51 

NOV 

DiC 

•SET  Y=CSBR(Ji!)i  DIVISOR 

3888 

4F 

NF3A: 

NOV 

CiA 

.ELSE  T--CSDL(J.I) 

3889 

AF 

IRA 

A 

•THEN  ZERO  E TO 

388A 

47 

NOV 

B.A 

; SET  EC  --  X.  DIVIDEND 

3888 

CD7F39 

CALL 

DIV 

ILET  T=X/T  . QUOTIENT  IN  C-REC 

388E 

1600 

NV1 

D»0D 

1 AND  SETUP 

3890 

59 

NOV 

EiC 

i IN  DE  FOR  COMPARE 

3391 

2A6339 

LHLD 

HIF 

'.GET  NIP  INTO  HL 

3894 

CBBA39 

CALL 

HILO 

i IF  NIF  CE  T 

3897 

DA6938 

JC 

NF3 

i GOTO  NEXT  FEAT 

389A 

226339 

SHLD 

HIF 

•ELSE  SAVE  T AT  NIF 

389C 

C36938 

JNP 

NF3 

i GOTO  NEIT  FEAT 

(HiDECIDE  CLASS 

iiMlFHtlF.CUNBI  C070  NEXT  CLAS 

i«M 

NB0--NIF 

ill* 

ACS'- ICL  AS 

!*« 

GOTO  KC2 

38A0 

2A6539 

DC4: 

LHLD 

NND 

iCET  NND 

38A3 

EB 

ICKG 

i INTO  DE  AND 

38A4 

2A6339 

. 

LHLD 

NIF 

i HIF  INTO  HL 

38A7 

CU0A39 

* 

CALL 

HILO 

ilF  HIF  CT  NND 

38AA 

DA4538 

JC 

NC2 

i GOTO  NEXT  CLAS 

33AD 

226539 

SHLD 

NNO 

.'ELSE  SAVE  HIF  AT  HKD 

3880 

3A6239 

LDA 

ICLAS 

ICET  ICLAS  AND 

J-4 


007200 

087300 

007400 

007500 

007680 

007700 

007880 

007900 

008000 

008100 

008150 

008200 

008250 

008300 

008400 

008500 

008600 

008700 

008800 

088900 

009000 

009100 

009200 

009300 

089408 

009500 

009608 

009700 

089800 

009980 

010000 

010100 

010110 

010120 

010200 

010300 

010400 

010500 

010600 

010700 

010680 

010900 

011000 

011100 

011200 

011300 

011(00 

011500 

011600 

011700 

011800 


MSB  MACRO  ASSEMBLER,  VER  2.2  ERRORS  = 0 PAGE  4 


€ 


3SE3 

325539 

STA 

ANS 

i SAVE  AT  ANS 

011900 

38B6 

C34538 

JNP 

NCZ 

•THEN  GOTO  NEXT  CLAS 

012000 

imOUTPUT  ANSWER 

012100 

5tH~>LLiIKN0iANS 

012200 

HHIF11KN0.E3.ANS) 

GOTO  0A5A 

012300 

;»H  10K-10K+1 

012400 

iu*  GOTO  m 

012500 

HH0A5A:  ING=lNC4l 

012600 

)l(l  GOTO  KV1 

012700 

38B9 

215339 

0A5:  LXI 

HiLL 

IGET  A ILL)  INTO  HL 

012800 

33EC 

114039 

LI  1 

D.LINE 

5 

012980 

38BF 

0613 

KVI 

B.19D 

ILINE  LENGTH 

012950 

38C1 

CB813A 

CALL 

CLUB 

i AND  OUTPUT  3 VALUES 

013000 

3SC4 

3A5439 

LBA 

IKNO 

ICET  IKNO  • 

013100 

33C7 

215539 

LXI 

Hi  ANS 

i IF (ANS  EQ  IKNO) 

013200 

33CA 

EE 

CMP 

H 

i GOTO  0A5A 

013300 

33CB 

CAD538 

JZ 

0A5A 

IELSE 

013400 

38CE 

216939 

LXI 

Hi  INC 

i EUHP 

013580 

3SD1 

34 

INK 

N 

i ERROR  COUNT 

013600 

3802 

C31538 

M 

NVI 

iANB  GOTO  NEXT  F-VECTOR 

013700 

3305 

216839 

CASA:  LXI 

HiIOK 

iBUfiP 

013800 

38D8 

34 

I NR 

K 

i CORRECT  COUNT 

013900 

3809 

C31538 

JMP 

NVI 

IAND  COTO  NEXT  F-VECTOR 

014000 

imOUTPUT  STATISTICS 

014100 

ImOUTPUT  SUMMART  HEADER 

014200 

ING 

014308 

38DC 

217639 

0S6i  HI 

HiSHBl 

•GET  A (SUN  HEADER)  INTO  HL 

014400 

38DF 

0609 

MVI 

8r9D 

i AND  NO.  CHARS  INTO  B 

014500 

38E1 

CDEC39 

CALL 

CLOOP 

i THEN  OUTPUT 

014608 

3SE4 

216739 

LXI 

HiLB 

IGET  A(LB)  INTO  HL 

014700 

38E7 

114039 

LI1 

DiLINE 

1 

014800 

38EA 

0613 

MVI 

B 1 19D 

•LINE  LENGTH 

014850 

38EC 

CB013A 

CALL 

OUTB 

i AND  OUTPUT  3 VALUES 

014900 

immmmmmmQUIT  AFTER  ONE  SLOCK 

015000 

38EF 

CF 

RST 

1 

» 

015100 

;«H INITIALIZE  FBLOCK 

015200 

imIOKMNC=0 

015308 

imOUTPUT  DECISION  HEADER 

015400 

imUXB 

015500 

38F0 

AF 

1F7:  IRA 

A 

iCLEAR  A AND 

015600 

38F1 

326839 

STA 

10K 

i ZERO 

015700 

38F4 

326939 

STA 

INC 

i VALUES 

015800 

38F7 

AF 

IRA 

A 

UNITIALIZE  VECTOR 

916000 

38F8 

325339 

STA 

LL 

i INDEX iLL 

016100 

38FB 

216B39 

LII 

HiDH01 

i OUTPUT 

016200 

38FE 

0608 

KVI 

BillO 

i DECISION 

016300 

3900 

CDEC39 

CALL 

CLOOP 

! HEADER 

016400 

IGET  NEXT  FEAT  BLOCK 

016450 

3903 

21003D 

LII 

Hi  FEAT 

I RESET  FEAT  VECTOR 

016500 

3906 

20 

DCI 

H 

; BASE  ADDRESS 

016550 

3907 

225839 

SHLD 

AFL 

i TO  A (FEAT  BLOCK) -1 

016600 
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390 A 

C31538 

JMP 

NV1 

f 

014800 

I 

014930 

I 

017000 

f 

UORK  AREA 

017100 

f 

017200 

f 

017300 

3940 

ORG 

DATA 

; OUTPUT  AREA 

017400 

0000 

LIKE: 

OS 

0 

i OUTPUT  UORK  AREA 

017500 

3940 

00 

OB 

0 

{FIRST  VALUE 

017400 

3941 

0030 

DU 

0 

i 

017450 

3943 

0300 

DU 

0 

! 

017440 

3945 

20 

SPl: 

OB 

i i 

i SPACE 

017700 

3944 

00 

OB 

0 

: SECOND  VALUE  . 

017800 

3947 

0300 

DU 

0 

i 

017850 

3949 

0300 

DU 

0 

i 

017840 

394E 

20 

SP2: 

OB 

i i 

i SPACE 

017900 

394C 

00 

OB 

0 

{THIRD  VALUE 

018000 

394D 

0000 

DU 

0 

i 

018050 

394F 

0000 

DU 

0 

1 

018040 

3951 

0A 

• SP3: 

DB 

BAH 

;cr 

018100 

3952 

00 

SP4: 

DB 

0DH 

{LINE  FEED 

018200 

t 

018300 

• 

» 

018400 

» 

VARIABLES 

018500 

» 

018600 

5 

018700 

3953 

00 

LL: 

DB 

0 

{POINTS  TO  FEAT  VEC 

018800 

3954 

00 

IKNO: 

DB 

0 

1 A PRIORI  CLASS  OF  F FEAT  BLOCK 

018900 

3955 

00 

AOS: 

DB 

0 

{DECISION  CLASS 

019000 

3954 

30 

EDEC: 

DB 

»-! 

SEND  DECISION  LINE 

019100 

3957 

00 

IVEC: 

DB 

0 

i VECTOR  NUMBER 

019200 

3958 

0000 

AFL: 

DU 

0 

{POINTS  TO  F-VEC  COMPONENT 

019300 

395A 

0000 

AFL0: 

DU 

0 

{FEATURE  VECTOR  EASE-A 

019400 

395C 

00 

J: 

DB 

0 

{FEATURE  PROCESS  LIMIT 

019450 

3950 

00 

I> 

DB 

0 

.POINTER  SHOUS  PROTO  I 

019400 

395E 

00 

JO: 

DB 

0 

.NUMBER  OF  FEATURE  DIMENSIONS  m 

019450 

395F 

00 

IC: 

DB 

0 

iNUMBEROF  CLASSES  "* 

019440 

3940 

0000 

ACL  I: 

DU 

0 

{POINTS  TO  PROTOTYPE  COMPONENT 

019700 

3942 

00 

ICLAS: 

DB 

0 

{LABELS  EACH  PROTOTYPE 

019600 

3943 

0000 

MXF: 

DU 

0 

{R- INF  MAC  FOR  DIS  VECTOR 

019900 

3945 

0000 

MOD: 

DU 

0 

.MINIMUM  R-INF  MAC 

020000 

3947 

00 

LB: 

DB 

0 

{NUMBER  F-VECS  IN  FEAT  BLOCK  ««» 

020100 

3948 

00 

10K: 

DB 

0 

{COUNT  OF  CORRECT  DECISIONS  THIS  BLOCK 

020200 

3949 

00 

INC: 

DB 

0 

{COUNT  OF  ERROR  DECISIONS  THIS  B. 

020300 

394A 

30 

ESUH: 

DB 

l-l 

BEND  SUMMARY  LINE 

020400 

t 

DECISION  HEADER 

020500 

394B 

44 

DH01: 

DB 

44H 

. D 

020600 

394C 

45 

M2: 

DB 

45H 

. E 

020700 

3940 

43 

Dmj: 

DB 

43H 

; c 

020600 

394E 

49 

DH04: 

DB 

49H 

; i 

020900 

394F 

53 

DH05: 

DB 

53H 

; s 

021000 

I o 


- r,7^  — - - 
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3970 

49 

0H36: 

00 

49H 

; i 

021108 

3971 

4F 

01(07: 

DC 

4FH 

i 0 

021200 

3972 

4E 

DH03: 

OB 

4EH 

; n 

021300 

3973 

53 

0(110: 

OB 

53K 

{ $ 

021400 

3974 

00 

DHIl: 

OB 

0DH 

; lf 

021500 

3975 

0A 

DH12: 

OB 

ARM 

; cr 

021480 

» 

SUMMARY  HEADER 

021700 

3976 

53 

SHU: 

OB 

53H 

i S 

021800 

3977 

55 

SH02: 

OB 

55H 

i U 

021900 

3973 

4D 

SK03: 

DB 

4DH 

; h 

022000 

3979 

40 

SH34 : 

OB 

4 OH 

; m 

022100 

397A 

41 

SH05: 

DB 

41H 

; a 

022200 

397B 

52 

SH84: 

OB 

52H 

i R 

022300 

397C 

54 

SH07: 

DC 

54H 

; i 

022400 

3970 

00 

SH03: 

OB 

(OH 

; lf 

022500 

397E 

0A 

SH09: 

DB 

BAH 

i CR 

022600 

i 

022700 

022800 

i 

SUBROUTINES 

022908 

i 

023008 

5 

023180 

i 

028415 

imDIV 

.DIVIDE  (IKTRP80I  P18I 

028420 

imlNPUT 

BC- 

DIVIDEND  UHSICNED 

028430 

0 - 

DIVISOR  UNSIGNED 

028435 

i«»OUTPUT 

C - 

QUOTIENT 

028440 

;m 

B - 

REMAINDER 

028445 

397F 

F5 

D1V: 

PUSH 

PSH 

{SAVE  CALLER’S  REGISTERS 

028504 

3980 

05 

PUSH 

0 

» 

028508 

3981 

E5 

PUSH 

H 

J 

028510 

3982 

1E09 

MV  I 

Ei9 

» LOOP  COUNTER 

028512 

3984 

78 

MOV 

A.B 

i 

028514 

3935 

47 

0190: 

MOV 

B.A 

» 

028516 

3934 

79 

MOV 

AiC 

5 ROT ATE  CARRY  INTO  CREC 

028518 

3987 

17 

RAL 

{ROTATE  NEXT  KSB  INTO  CARRY 

028520 

3988 

4F 

MOV 

CiA 

i 

028522 

3989 

ID 

OCR 

E 

» 

028524 

398A 

CA9739 

JZ 

0IV1 

{ 

028526 

3980 

78 

MOV 

A.R 

! 

028528 

398E 

17 

RAL 

f 

028530 

393F 

92 

SUB 

0 

{SUBTRACT  DIVISOR. 

028532 

3990 

028539 

JNC 

OIV0 

» IF  LT  Hl-OUO-BYTE.  GOTO  DIM 

028534 

3993 

82 

m 

0 

{OTHERWISE  ADD  DIVISOR  BACK 

028536 

3994 

C38539 

JMP 

DIV0 

{ 

028538 

3997 

17 

D1V1: 

RAL 

• 

• 

028540 

3998 

5F 

MOV 

E.A 

S 

028542 

3999 

3EFF 

MV1 

A.0FFH 

.COMPLEMENT  QUOTIENT 

028544 

3990 

A9 

IRA 

C 

• 

I 

028546 

399C 

4F 

MOW 

CiA 

{ 

028548 

3990 

78 

MOV 

AiE 

» 

028550 

399E 

IF 

RAR 

f 

128552 
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399F 

El 

POP 

H 

.RESTORE  CALLER'S  REGISTERS 

028554 

mt 

01 

POP 

0 

i 

023556 

39A1 

FI 

POP 

PSH 

» 

028558 

39AZ 

C9 

RET 

» 

02S560 

f 

028562 

J 

0285G4 

5 

023566 

» 

028600 

i 

028700 

» 

023800 

;h»embco 

.B1MRK  TO  BCD  (BB18-INTEL  U.L.) 

028903 

!«•  INPUT: 

UNSIGNED  EINART  NUNEER  IN  EE 

029000 

;>« 

POINTER  TO  LOWEST  BUFFER  LOC  IN' HL 

029100 

••••OUTPUT: 

5 BCD  DICITS.  ONE  PER  BYTE 

029200 

;<u 

HL  POINTS  TO  HSB  IN  LOWEST  LOCATION 

029300 

39A3 

F5 

8NBCD: 

PUSH 

PSU 

ISAVE  VARIABLES 

029400 

39A4 

C5 

PUSH 

B 

i 

029500 

39A5 

05 

PUSH 

0 

5 

029600 

39A6 

E5 

PUSH 

H 

i 

029700 

39A7 

EB 

XCHC 

iCET  NUKEER  INTO  HL 

029800 

39A8 

01F0DS 

LX  I 

Bi-10000 

i ACOR  INTO  DE 

029900 

39AB 

C0C939 

CALL 

DECNO 

iCET  KSD 

030000 

39AE 

0113FC 

LX1 

Bt-1000 

! 

030100 

39B1 

CDC939 

CALL 

DECNO 

S 

030200 

39B4 

019CFF 

HI 

E>-1M 

> 

030300 

39E7 

CDC939 

CALL 

OECNO 

i 

030400 

39BA 

B1F8FF 

LII 

Bi-10 

I 

030500 

39B0 

CDC939 

CALL 

DECNO 

i 

030600 

39C0 

70 

KOV 

AiL 

ICET  LSD 

030700 

39C1 

F630 

ORI 

30H 

IFOR  ASCII 

030750 

39C3 

12 

STAX 

0 

ISTORE  IT 

030800 

39C4 

El 

POP 

H 

I 

030900 

39C5 

01 

POP 

0 

i 

031000 

39C6 

Cl 

POP 

B 

I 

031100 

39C7 

FI 

POP 

PSU 

i 

031200 

39C8 

C9 

RET 

i 

031300 

39C9 

3E30 

DECNO : 

HVI 

Ai30H 

I30H  CONSTANT  FOR  ASCIIi  0 FOR  BCD 

031500 

39CB 

05 

PUSH 

D 

ISAVE  ADDR 

031600 

39CC 

50 

OECNl: 

NOV 

EiL 

ISAVE  BINARY 

031700 

39C0 

54 

KOV 

DiH 

I 

031800 

39CE 

3C 

INR 

A 

I INCREMENT  DIGIT 

031900 

39CF 

09 

DAD 

B 

ISUBTRACT 

032000 

39D0 

DACC39 

X 

DECN1 

IRESULT  NECATIVE 

032100 

39B3 

30 

DCR 

A 

!TES-->RESTCRE  D1CIT  COUNT 

032200 

3904 

60 

KOV 

LiE 

IBINARY  NUMBER 

032300 

39D5 

62 

NOV 

HiD 

! 

032400 

39D6 

01 

POP 

D 

IAND  ADDRESS 

032500 

39D7 

12 

STAX 

0 

ISTORE  DIGIT 

032600 

3908 

13 

INI 

0 

I INCREMENT  POINTER 

032700 

3909 

C9 

RET 

I 

032800 

1 

032900 

r 
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033000 

i 

033100 

imHILO 

» 16-BIT  COMPARE (00/20  STS) 

033200 

SmlUPUT:  DE- 

It  BIT  INTEGER 

033300 

;m  hl- 

It  BIT  INTEGER 

033400 

imOUTPUT:  CARRT  ->0  IF<HL<DEliELSE--)l 

033500 

S*H  DESTROYS  A AND  F/F'S.  UNSIGNED  NUMBERS  ONLT 

033600 

39DA 

C5 

HILO:  POSH 

8 

iSAVE  ec 

033700 

39BB 

47 

MOV 

P.4 

iSAVE  A RECISTER 

033800 

39BC 

23 

INI 

H 

i INCREMENT  HL  BT  ONE 

033900 

3900 

7C 

MOV 

AiH 

•WANT  TO  TEST  FOR  ZERO  RESULT  AFTER 

034000 

39EE 

B5 

ORA 

L 

i/INCRENENTINC 

034100 

39DF 

28 

DCX 

H 

iRESTORt  HI 

034200 

39E0 

37 

STC 

iSET  CARRT 

034300 

39E1 

CAE939 

JZ 

HIL05 

ilF  SO  CARRT  IS  SET  PROPERLT 

034400 

39C4 

78 

MOV 

A.L 

ilF  NOT  HOVE  L TO  A 

034500 

39E5 

93 

sue 

E 

iSUBTRACT  E 

034G00 

39E6 

7C 

MOV 

A.H 

iHOV  H TO  A 

034700 

39E7 

9A 

see 

B 

iSUBTRACT  C WITH  BORROW 

034800 

39E8 

3F 

cue 

iCOMPLEKENT  CARRT  FOR  OK  CARRT  BIT  VAIUE034900 

39E9 

73 

HIL05:  MOV 

AiB 

‘.RESTORE  A 

035000 

39EA 

Cl 

POP 

B 

iRESTCRE  BC 

035100 

39EB 

C9 

RET 

iEXIT 

035200 

1 

035300 

f 

035400 

» 

035500 

imCLOOP 

iCHARACTER  STRING  OUTPUT 

035600 

im INPUT:  e- 

NUMBER  OF  CHARACTERS 

035700 

;•»»  HL 

POINTER  TO  LOWEST  CHARACTER  IN  STRING 

035800 

imOUTPUT:  TYPEWRITER  OUTFUT 

035900 

iff » HL-DESTROED 

035950 

i»»»  e-BESTROTED 

035952 

A-BESTROYED 

035954 

39EC 

03 

CLOOP:  BCR 

B 

iFEEB  COUT  UNTIL 

036000 

39E0 

F8 

RH 

i LAST  CHARACTER.  THEN  EXIT 

036100 

39EE 

4E 

MOV 

CiN 

.’GET  CHAR 

036200 

39EF 

CBE639 

CALL 

COUT 

i TO  OUTPUT  ROUTINE 

036300 

39F2 

23 

INI 

H 

i 

036400 

39F3 

C3EC39 

JMP 

CLOOP 

i 

036500 

1 

036600 

1 

036700 

i 

036800 

imCOUT 

iCHARACTER  OUTFUT (80/20  STS  1 

036900 

im INPUT:  C-BTTE  TO  OUTPUT 

037000 

imOUTPUT:  TYPEWRITER  OUTPUT 

037100 

im  A-BESTROTED 

037150 

39FA 

DGED 

COUT:  IN 

USTAT 

iCHECK  REABT 

037200 

39F8 

E601 

ANI 

0K2G0 

i STATUS  UNTIL 

037300 

39FA 

C2F639 

JNZ 

COUT 

i OK  TO  NRITE 

037400 

39FD 

79 

NOV 

AiC 

{SEND  BTTE 

037500 

39FE 

D3EC 

OUT 

UPORT 

i TO  OUTPUT  PORT 

037600 

8080  MACRO  ASSEMBLER.  VER  2.2  ERRORS  = 0 PACE  9 


3A80  C9  RET  ! 837700 

; 037860 

i 837980 

I 038000 

J«*0UT8  .OUTPUT  1-CYTE  INTEGERS  038103 

imiNPUT:  HL- A (VALUES  LIST)  838380 

{»»*  DE»ADDR (OUTPUT  LINE)  838330 

;«**  8 LENGTH  (IN  BITES)  OF  LINE  ENDING  IN  CR  LF  838350 

imOUTPUT:  TTPEURITER  OUTPUT  838420 


3A01 

7E 

CUTE: 

MOV 

A.M 

3A02 

FE3D 

CPI 

.;» 

3A04 

CA1E3A 

JZ 

OUTBA 

3A07 

E5 

PUSH 

H 

3A08 

D5 

PUSH 

D 

3A09 

EE 

TCHG 

3A0A 

5F 

MOV 

E.A 

3A0B 

AF 

TRA 

A 

3A2C 

57 

MOV 

D.ft 

3A0D 

CDA339 

CALL 

DNECD 

3A10 

D1 

POP 

D 

3A11 

210600 

LT1 

H.06H 

3A14 

19 

DAD 

D 

3A15 

EB 

TCHG 

3A16 

El 

POP 

H 

3A17 

23 

INT 

H 

3A18 

C3013A 

JMP 

OUTB 

3A1B 

214039 

OUTBA: 

LT1 

H.L1NE 

3AIE 

C0EC39 

CALL 

CLQQP 

3A21 

C9 

f 

RET 

3B80 

• 

ORC 

CLAS 

3B80 

01 

Cll: 

DB 

01B 

3B81 

0A 

OB 

10D 

3E82 

05 

DB 

05D 

3E83 

03 

DB 

03D 

3B84 

14 

DB 

20D 

3885 

02 

DB 

82D 

3886 

09 

DB 

890 

3B87 

FF 

DB 

255D 

3G88 

0A 

DB 

10D 

3B89 

07 

DB 

070 

3B8A 

02 

CI2: 

DB 

02D 

3B8B 

28 

DD 

48D 

3B8C 

08 

DB 

08D 

3B8D 

ID 

DB 

270 

3D8E 

42 

DB 

66D 

3E8F 

0F 

DB 

15D 

3B90 

08 

DB 

080 

3B91 

27 

OB 

39D 

GET  NETT  VALUE  838503 

IF  EO  '='  838600 

GOTO  OUTBA  838720 

SAVE  A (VALUES)  ON  STACK  838800 

SAVE  A (BUFFER)  ON  STACK  03S900 

HL  NON  HAS  A (BUFFER)  039000 

SETUP  839100 

DE  WITH  039208 

VALUE  039300 

CONVERT  BIN  TO  ASCII  839400 

CET  A(BLTFER)  INTO  D 039500 

BUMP  BT  6 SLOTS  039600 

TO  NETT  FIELD  039700 

AND  PUT  INTO  DE  039800 

GET  A(VALUES)  INTO  HL  039900 

BUMP  TO  NETT  VALUE  840000 

AND  GOTO  NETT  VALUE  040100 

OUTPUT  840300 

LINE  040400 

ETIT  040500 

040600 

040700 

040800 

ICLAS  FILE  DATA  040900 

ICLAS  1 ID  040910 


040920 

040925 

040930 

040940 

040945 

840948 

840950 

840955 

040957 

CLAS  2 ID  841000 

041010 

841812 

041014 

041020 

041022 

841024 

041036 


J-10 


6083  KACRO  ASSEKtlERt  VER  2.2  ERRORS  = 0 PACE  10 


3892 

2C 

OB 

440 

1 

041040 

3B93 

0C 

D8 

12D 

» 

041042 

3899 

03 

C13: 

08 

030 

SCLAS  3 ID 

041100 

3895 

FO 

08 

2530 

» 

041120 

3896 

03 

OB 

830 

» 

041122 

3897 

0F 

OB 

150 

i 

041124 

3298 

17 

00 

230 

i 

041125 

3899 

91 

OB 

1450 

J 

041140 

3E9A 

17 

DB 

230 

» 

041142 

3B9B 

13 

08 

190 

» 

041144 

3C9C 

40 

DB 

770 

i 

041160 

3B9D 

0C 

08 

120 

\ 

841162 

3B9E 

05 

08 

050 

1 

041165 

( 

041200 

t 

041300 

» 

041400 

3800 

ORC 

FEAT 

.FEAT  BLOCK  DATA 

041500 

3000 

01 

KNOl: 

OB 

010 

;a  priori  known  as  i-class 

041600 

3001 

01 

VECls 

08 

010 

{VECTOR  NUMBER 

041602 

3002 

05 

08 

050 

» 

041605 

3003 

10 

OB 

160 

» 

041607 

3004 

C8 

DB 

2000 

i 

041609 

3005 

02 

KN02: 

08 

020 

;a  priori  known  as  2 class 

041780 

3006 

02 

VIEC2: 

08 

020 

» VECTOR  NUMBER 

041702 

3007 

3C 

08 

600 

1 

041704 

3003 

5A 

08 

900 

i 

041706 

3009 

50 

DB 

800 

» 

041708 

3D0A 

03 

KN03S 

08 

03D 

iAPRIORI  KNOWN  AS  3 CLASS 

041800 

3088 

03 

VEC3: 

08 

030 

.VECTOR  NUMBER 

041802 

3D0C 

C3 

08 

2000 

i 

041900 

3000 

64 

08 

1000 

» 

041902 

3O0E 

5A 

08 

900 

I 

041904 

i 

042000 

» 

042100 

i 

042200 

3F40 

ORC 

PILE 

» 

042300 

3F40 

0000 

DU 

0 

» 

042400 

3F42 

0000 

OU 

0 

042500 

3F44 

0000 

DU 

0 

» 

042600 

3F46 

0080 

OU 

0 

5 

042700 

3F48 

0000 

DU 

0 

» 

042800 

3F4A 

0800 

DU 

1 

» 

042900 

3F4C 

0000 

DU 

1 

t 

043000 

3F4E 

0000 

DU 

0 

• 

t 

043100 

3F50 

tm 

OU 

1 

» 

043200 

3F52 

mi 

DU 

0 

» 

043301 

3F54 

0300 

DU 

0 

i 

043400 

3F54 

0000 

DU 

0 

» 

043500 

3F58 

0000 

DU 

1 

i 

043600 

3F5A 

0080 

DU 

0 

5 

043700 

3F5C 

0000 

DU 

0 

I 

043800 

J-ll 


I 


0080  MACRO  ASSEMBLER.  VER  2.2  ERRORS  = 0 PACE  11 


3T5E 

0300 

DU 

0 ; 

043880 

3F40 

0080 

DU 

0 ; 

044000 

3F42 

0800 

DU 

0 i 

044108 

3F44 

0000 

DU 

0 i 

044200 

3F44 

0300 

DU 

0 i 

044500 

3F48 

0300 

DU 

0 I 

044480 

3F4A 

0000 

DU 

0 i 

044700 

3E4C 

0300 

DU 

a ; 

044800 

3r4E 

0300 

DU 

0 ; 

044908 

3F70 

0300 

DU 

0 i 

04D803 

3F72 

0800 

DU 

0 ; 

045108 

3F74 

0880 

DU 

0 ; 

045280 

3nt 

0000 

DU 

0 ; 

045300 

3F78 

0000 

DU 

0 i 

045400 

3F7A 

0000 

DU 

0 ; 

045500 

3F7C 

0000 

DU 

0 • 

045400 

3F7E 

0000 

DU 

0 ; 

045700 

END 

. 

045800 

STMEOL  TAELE 


< 01 

A 

0037 

ACL  I 

3940 

AFL 

3958 

AFL0 

395A 

AMS 

3955 

8 

0000 

81IBCD 

39A3 

8P0 

3800 

C 

0001 

CI1 

3880  « 

CI2 

388A  » 

CIS 

3894 

CLAS 

3830 

CLOOP 

39EC 

CODE 

3500 

COUT 

39F4 

D 

0002 

DATA 

3940 

DC4 

38A0 

DECN1 

39CC 

DECNO 

39C9 

DH01 

3948 

DH02 

394C  t 

DH03 

394D 

DU04 

394E  » 

DH05 

394F  * 

DH04 

3970  t 

DH07 

3971 

DH08 

3972  » 

DH10 

3973  « 

DHlt 

3974  i 

DH12 

3975 

DIV 

397F 

3190 

3985 

DIV1 

3997 

E 

0003 

EOEC 

3954  « 

EIC 

0003 

EJD 

0003 

EL8 

0v903 

ESUH 

394A  t 

TEAT 

3030 

H 

0004 

HIL05 

3SE9 

HILO 

39DA 

I 

395B 

IC 

395F 

ICLAS 

3942 

IF7 

3CF0 

IKNO 

3954 

INC 

3949 

IOK 

3948 

me 

3957 

J 

395C 

JD 

395E 

KN01 

3D00 

KN02 

3D05  « 

KN03 

3D0A  * 

l 

0005 

LB 

3947 

LINE 

3940 

LL 

3953 

H 

0204 

KND 

3945 

MXF 

3943 

NC2 

3845 

NF3 

3849 

NF3A 

3388 

NV1 

3815 

0A5 

3889 

8ASA 

3305 

0K2C0 

0301 

054 

38DC 

OUTB 

3A01 

OUTCA 

3A18 

PILE 

3F40 

PSU 

0004 

SH01 

3974 

SH02 

3977  i 

SH03 

3978 

SH04 

3979  » 

SH05 

397A  » 

SK24 

3978  • 

SH07 

397C 

SH08 

397D  » 

SH09 

397E  * 

SP 

0004 

SP1 

3945 

SP2 

3948  • 

SP3 

3951  • 

SP4 

3952  « 

STACK 

3F80 

START 

0800  < 

SUBS 

3980  • 

UPORT 

00EC 

USTAT 

00ED 

VECI 

3001  i 

VEC2 

3D04  < 

VEC3 

3D06  < 

STOP 

13.744  CP  SECONDS  EXECUTION  TINE 


J-l? 


1 038081033 1 803r3E03325E393E033Z&7393E033238 
103810035F39C3F03S21533944043A473993FAECEE 
I038200033702A5S39237E325439237E3257392250 
103830235A3921803E2E224039215F397E32523934 
103840003EFF324539215B397E3EFAB93877237EF4 
103850083Z5C392A4839Z37E3242392Z40392A5A31 
1 0384000392258393E333263392 15C3935F  AA038A3 
103870002 A4039237E2354234E2Z43392A58392341 
1038800022583994F28838514FAF47CB7F3914000C 
10389000592A4339CB3A390A4933224339C349388C 
1038A0002A4539EB2A4339CBBA39DA4538224539A8 
1038B0003A4239325539C34 5382153391 14S3904E4 
1038C00013CC013A3A5439Z15539EECAB538214948 
1038D0003934C3153SZ1483934C31538217439343F 
1038E00009CBEC392147391140390413CD013ACFAZ 
1038F000AF324839326939AF325339216E39043B2F 
0D390000CDEC3921033D2B225839C315387C 

itmemmmmmmmmmmmM 

10394000000080000040008000803D4445434953EZ 
10397f32494F4E'3K3A53554B4I)4152540B3AF5C2 
10398020D5E51E09784779174F1DCA9739781792E0 
10399000B2853982C38539175F3EFFA94F7B1FE14E 
1039A000D 1 F 1C9F5C5B5E5EE0 1 F 2D8CBC9390 1 1 87C 
1039E000FCCDC939019CFFCDC93901F4FFCDC9390C 
1039C0007OF63012E1D1C1F1C93E30D55B543C09DC 
1039D000DACC393D4E42B112I3C9C547237CE52BE4 
1039E00037CAE9397D937C9A3F78C1C905F84ECD35 
1039F000F43923C3EC39BBEDE401C2F43979D3ECE5 
103A0000C97EFE3DCA1B3AE5D5EB5FAF57CEA33942 
103A1000D121340019EBE123C3013A214339CDEC55 
023A200039C9A2 

103B80000 1 0A05031 40209FF  0A07022808 1 E420F55 

0F3B900008272C0C03FD330F 17911 7 134E2C057B 

0F3D000001010516C802023C5A500303C3445A5F 

103F400000000800000I0000080800030020000071 

103F5000000000003033M0300003033380C000341 

103F4000000«30000<!000000000000000300M051 

mnmmimmmmummmmmi 

0000000000 


j-i? 


•-  y 
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APPENDIX  K 

Sample  Execution  Output 


( 


COMMAND-  XCMDiIJSER 


J 


c 


v.  . 
c 


.COPTStF iLOCF 


CREATE 

ENTER  OPTIONS 
♦LIH1 

ENTER  PARAMETERS 
LABLiNBUEiJDiICttliiNEiMXV 

• lMtTiOHIlliHiWiSOtMiiiOi! 

APPROVE  ADJUSTED  PARAMETERS 
OPTS  LASL.NEUFiJDiIC.NIiKEiflXV 
L1H1  1003  100  14  3 50  0 80 
ENTER  T OR  N 
»T 


( 


( 


FEAT  FILE  HAS 
DIST  ERE  HAS 
STOP 

5.306  CP 


CREATE 

ENTER  OPTIONS 

l 

LIH1 

APPROVE  ADJUSTED  PARAMETERS 
OPTS  LACLiNEUEi JDiICiNIiNEiHXV 
LIH1  1000  100  14  3 50  I 80 
ENTER  T OR  N 


FEAT  PILE  HAS  1360  WORDS  AND  80  VECTORS  PER  BLOCK 
BIST  ERE  HAS  812  WORDS  AND  50  STEPS  PER  HISTOGRAM 
FIRST  PASS  SCAN  STATISTICS  .L1H=  .500E-02  .919E+00 


1360  WORDS  AND  80  VECTORS  E'ER  BLOCK 
812  WORDS  AND  50  STEPS  PER  HISTOGRAM 

SECONDS  EXECUTION  TIME 


COMPONENT  NUM 

AV 

CSDL  CSDR 

MIN 

MAX  MODE 

MODE 

1=  .471E+03 

.223E+03 

.327E403  0. 

.539E+00 

.726E400  0. 

0. 

2=  .471E+C3 

.331EI03 

.39*8+03  0. 

.461E+00 

.919E+00  £. 

1. 

3=  .471EI03 

.3140402 

.U8E403  0. 

.1340400 

.6040400  0. 

1. 

4=  .471E+C3 

,282E<03 

.3620*03  0. 

.264E400 

.888E+00  0. 

0. 

5=  .4710403 

.358E+02 

.U9EI03  0. 

.9200-01 

.677E400  0. 

0. 

6=  .4710403 

.250EI01 

.301E+02  0. 

.5000-02 

.251E400  0. 

0. 

7=  .47XE+C3 

,528E*01 

.449E+82  0. 

.2200-0! 

.374E400  0. 

0. 

8--  .471EI03 

.691E»02 

. 17SE+03  0. 

.140E400 

.464E400  0. 

0. 

9=  .471Ei£3 

.583E+01 

.4530102  0. 

.100E-01 

.306E400  0. 

0. 

10=  .471E+83 

.6090402 

.167EI03  0. 

.103E400 

.459E400  0. 

0. 

11=  .4710403 

.8830*01 

.607EI02  0. 

.530E-01 

.357E400  0. 

0. 

12=  .4711103 

.9500401 

,612Ei02  0. 

.3800-01 

.339E400  0. 

0. 

13=  .471EI03 

. 156E+C2 

.806E*02  0. 

.7300-01 

.399E400  0. 

0. 

14=  .471E+03 

.150EI02 

.772E*02  0. 

.4400-01 

.402E400  ». 

0. 

HISTOGRAM  FILE  OPEN  H1SC 

1000 

58  14 

H1SC  RECORD 

1 1 

0 0 

50 

COMPONENT  N'JM 

AV 

CSDL 

CSDR 

MIN 

MAI 

MODE 

VNODE 

1=  .47IEH3 

.1390401 

.9818)00  .384EI02 

.539E400 

.726E400  .709E400 

.4100400 

1.  1. 

0.  0. 

0.  0. 

0. 

0.  1. 

1.  0. 

0. 

1.  0. 

1.  1. 

1.  1. 

1.  0. 

1. 

1.  1. 

1.  2. 

1. 

5.  3. 

1.  0. 

1.  1. 

0.  1. 

0. 

0.  1. 

0. 

COMPONENT  NUN 

AV 

CSDL 

CSDR 

MIN 

MAI 

MODE 

VNODE 

2=  .471E*03 

.167EI01 

.1180401  . 

4810402 

.461E400 

.919E400  .892E+00 

.193E400 

0.  f. 

1.  0. 

1.  I. 

f. 

1.  1. 

0.  0. 

0. 

0.  0. 

1.  1. 

1.  1. 

1.  1. 

1. 

f.  f. 

1.  0. 

1. 

1.  2. 

15.  25.  30.  36. 

29.  32. 

51. 

44.  91. 

58. 

i.  I. 

3.  19.  37. 


I.  I.  I. 

63.  57.  193. 


I. 

I. 


0. 

4. 


I. 


f. 

4. 


f. 

2. 


9* 


t 

H 


K-A> 


NEXT-CLASS 

ENTER  FUNCTION  AND  CLASS  ID 
AAAA1H1+NN 
IQUIT 


{ 


CCHHAND-  C0P1SBF iLOGF 


1 PL 
DEFINE 

ENTER  NODE  AND  OPTION'S 


OPENED  FEATURE  FILE  KITH  HEADER 
NANE.LABL.JDi  LB1IC1  KV.IOPT.IHIS, 
FEAT  1033  17  DO  3 198  5 1 

INITIAL  CLAS  FILE  103001 
ENTER  PARAMETERS 
NB.NEiHUSKR 

4 

50  0 .0310 

APPROVE  ADJUSTED  PARAMETERS 
NDiNEiNATRViCLAS  FILE  SIZE 
50  1 0 238 

CLAS  DEFN  FOR  1 STH=  1 


FIRS)  FLAS 
.5ZE-02  .92E+00 


.472E+03 

.778E+00 

.290E+00 

.70SE+00 

.314E-*00 

•917E-01 

.125E400 

,341E*00 

.129E+00 

.322E400 

.142E+00 

.166E+00 

.202E+00 

.198E+C3 

.999E+99 

.314E-01 

.414E-01 

.712E-81 

.853E-01 

.115E+00 

•339E-01 

.458E-B1 

.559E-01 

.542E-01 

.593E-01 

.445E-01 

.541E-61 

.438E-01 

.489E-01 

.999E+99 

.314E-01 

.616E-01 

•712E-01 

.853E-01 

.115E+C0 

.339E-01 

.458E-01 

.559E-01 

.542E-01 

.593E-01 

.445E-01 

.541E-01 

.4SSE-01 

.4S9E-01 

.999E+99 

hlSTOCRAM  FILE  OPEN 

HISC  130001  58 

14 

RISC  RECORI 

1 1 

1 30 

21  50 

CLAS  DEFN 

FOR  2 STK-  1 

.715E+00 

.884E408 

.211E+00 

.8Z5E*00 

.197E+00 

•359E-01 

.423E-01 

•408E+60 

.429E-01 

.379E+00 

.104E+00 

.105E+C0 

.145E+00 

.137E+00 

.999E+99 

.435E-B2 

.2155-01 

.217E-0) 

■497E-01 

.849E-01 

.144E-01 

.282E-01 

.3S5E-01 

•433E-01 

.444E-01 

.249E-01 

•409E-01 

•424E-01 

.411E-01 

.999E+99 

.635E-02 

.215E-01 

.217E-01 

.497E-01 

.849E-01 

.144E-01 

.282E-01 

.345E-01 

.433E-01 

.444E-0I 

.Z69E-01 

.409E-01 

.424E-01 

.411E-01 

. 999E+99 

HISC  RECORD  2 

1 30 

21  50 

CLAS  DEFN  FOR  3 ST«=  1 

.709E+00 

.874E+00 

.227E+00 

.809E400 

.211E+00 

.478E-01 

•783E-01 

.405E+00 

.770E-01 

.379E+00 

.105E+00 

.104E+20 

.151E+00 

.140E+O0 

. 999E+99 

.I30E-01 

.314E-01 

.343E-01 

.549E-01 

.835E-01 

.184E-01 

.3I5E-01 

.393E-01 

.443E-01 

.451E-01 

.292E-01 

.435E-01 

.498E-01 

.598E-01 

.999E+99 

.133E-01 

.314E-0I 

.343E-01 

.549E-0! 

.835E-01 

.184E-01 

.315E-01 

.390E-01 

.443E-01 

.451E-01 

.292E-01 

.435E-01 

.498E-01 

.598E-01 

.999E+99 

-r—arrs 
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LIST.IT  from  1 OF  17 

I3*m«  1100  1201  2100  2201  3100  3201  93000  99000  1301  1202 


*E*n,*e  conpoNErrrs 


COMMAND-  J1R1B.FEftT.NW; 


TRTOUT 

ENTER  OPTIONS 
♦PNFSl 

FEAT  FILE  1003 
CLflS  FILE  103001 

assn 

E‘;ter  class  and  dimensions 
♦CL 

ms 


I LOG  FIGURES  OF  MERIT  FOR  DIMENSIONS 
4=  .1920E*0Z  7=  .1542E+02  1=  .1544E*02  11=  .1498E*02 

10=  .1112E+02  13=  .1045E*02  2=  .9852E*0i  14=  .949ZE*01 

2SUN  FIGURES  OF  MERIT  FOR  DIMENSIONS 
4=  .1184E+07  1=  .49Z7E*04  7=  .1974E*04  11=  .1784E+04 

8=  .2434E+05  2=  .2278E+05  14=  .1352E+05  10=  .1474E+05 

ENTER  F/M  SET  NUMBER 
♦2 


9=  . 1344E*02 
4=  .8223E*01 

12=  .12B2E+02 
5=  .4741E+01 

8=  .l!99E*02 

3=  ,112B£*02 

3=  .7B43E*05 
4=  .3880E*04 

9=  ,7090E*05 
5=  .374EIE+04 

12=  . 4049E*05 

13=  .3495E*05 

SUMMARY  CONCLUSION 
.4582  .3418  0.0000 
SUBSPACE  TAGS 

4 1 7 11  3 9 12  13  8 2 14  10  4 5 
SUBSPACE  ERROR  RATES 

1=59/40  2=42/37  3=41/30  4=45/34  5=44/33  4=44/35  7=44/33  8=44/33  9=45/34  10=48/31  11=44/33  12=44/33 
13=45/34  14=45/34 
SUBSET 

ENTER  CLASS  AND  DIMENSIONS 
♦Cl 
»099 


PD.  I'D,... 

*01.02,91 

ENTER  F/M  SET  NUMBER 

*2 

SUMMARY  CONCLUSION 
.7134  .2844  0.0000 
SUBSPACE  TACS 

4 1 7 11  3 9 12  13  8 2 14  II  4 5 
SUESPACE  ERROR  RATES 

1=59/40  2=41/38  3=41/38  4=41/38  5=41/38  4=41/38  7=41/38  8=41/38  9=41/38  10=71/28  11=71/28  12=71/28 
13=71/28  14=71/28 
SUBSET 

ENTER  CLASS  AND  DIMENSIONS 
♦CL 


K-7 
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C0P1SBF iLOCF 
COMMAND- 


OPENED  FEATURE  FILE  WITH  HEADER 
NAAE.LAEL.JDi  LB. IC.  AV.IOPT.IHIS.  FIRS.  FLAS 
FEAT  1033  17  80  3 198  5 1 .58E-02  .92E+03 

OPENED  CLAS  FILE  WITH  HEADER 

NAME  LADLC  JDK  ICX  NTC  MEUC  MKV  RENT  NCU  MSCAL  HZAF'D 

CLAS  103881  17  14  3 50  0 17  0 0 0 

CLAS  FILE  INDEX 

1=  1 2 -1.  2=  3 4 -1.  3=  5 6 -1. 


1 CLASS  HERIT=  VMAC=  . 17E+03 


.884E+02 

.330E402 

.384E+02 

.197E+82 

.133E+02 

.888E402 

.467E402 

.329E+02 

.276E402 

.221E402 

CLASS  1 

AS  SEEN  ET  REST  VMAC=  .17E403 

.942E402 

.154E402 

.739E401 

.116E402 

.377E+01 

.934E402 

.235E402 

.140E402 

.421E+01 

.420E+01 

REST  AS  SEEN  ET  CLASS  1 VMAC=  .15E4{ 

>3 

.894E402 

.340E402 

.394E402 

.207E402 

. 143E+02 

.898E+0Z 

.477E402 

.339E402 

.2B6E+02 

.231E+02 

2 CLASS  MERIT = 

VMAG=  .36E+03 

.21 IE+03 

.976E+02 

.674E+02 

.471E+02 

. 236E+02 

.174E403 

.893E402 

.626E402 

.518E402 

.4I5E402 

CLASS  2 

AS  SEEN  BT  REST  VKAG=  .19E403 

.522E+03 

.380E403 

.159E402 

.372E+C2 

. 189E+01 

. 5A8E+03 

.962E+02 

•414E+02 

.238E402 

.128E+02 

REST  AS  SEEN  ET  CLASS  2 VHAC=  .85E403 

.123E403 

.646E402 

.290E402 

.274E402 

.103E402 

.856E+02 

.426E402 

•298E402 

.242E+02 

.195E402 

3 CLASS  KERIT= 

VMAC=  .58E403 

.256E403 

.108E403 

.136E403 

.540E+02 

.49EE402 

.329E403 

. 177E+03 

.123E+03 

.102E+03 

.828E402 

CLASS  3 

AS  SEEN  BT  REST  UNAG=  .25E403 

.387E402 

. 151E+01 

.249E+03 

.317E+01 

.445E+02 

.151E404 

.520E403 

•234E403 

.154E+03 

.111E+03 

REST  AS  SEEN  BT  CLASS  3 VNAC=  .17E-404 

.450E402 

.1B4E+02 

.687E+02 

.684E401 

.253E+02 

.154E+03 

.878E402 

•602E402 

.506E+02 

.412E402 

SUMMARt  CONCLUSION 
.6582  .3418  0.0800 
CONFUSION  MATRIX 
198  1 86  1 12 

82  2 9 47  42 

191  3 24  23  52 


.489E+02  .295E402 

.368E+02  . 198E+02 

.499E402  .305E402 

.949E402  .511E+02 

.126E+03  .359E402 

.460E+02  .216E402 

.181E+03  .881E+0Z 

.483E+03  .837E402 

.860E402  .370E402 


.349E402  .258E402 

.236E402  .I51E402 

.359E402  .268E402 

.673E402  .442E+02 

.534E402  .226E+02 

.324E402  .183E402 

. 128E+03  .782E402 

.245E403  .729E402 

.609E402  . 340E+02 
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HISC  RECORD 

I 3 

1 30 

21  30 

CLAS  VECTOR  TAGS 

1/0  1/1 

2/0 

2/1  3/0 

3/1  98/*  99/4 

0/0  0/0 

0/0  0/0 

AT  VEC- 

1 CAV 

CLAS=  i 

.472E400 

.778E400 

.290E+00 

.708E400  .314E*00 

•917E-01 

.125E+00  .341E400 

.129E+00 

.322E+30 

.142E400 

.UiE+30 

.202E+00 

.198E400 

AT  VEO 

2 CEDE  CLAS1  1 

.314E-01 

.414E-01 

.712E-01 

.853E-01  .115E+00 

.339E-01 

.458E-01  .559E-01 

.542E-01 

.593E-01 

.445E-01 

.541E-81 

.438E-61 

.489E-01 

AT  VEC- 

3 CAV 

CLAS=  2 

.715E+00 

.esAE+sa 

.211E+00 

.825E400  . 197E+0S 

.359E-01 

.423E-01  .408E400 

.429E-01 

.379E400 

.10AE+C3 

.usE-tea 

.U5E+00 

.137E+08 

AT  VEC= 

4 CSBL  CLAS=  2 

.435E-02 

•215E-01 

.217E-01 

.497E-01  .849E-01 

.144E-01 

.282E-01  .345E-01 

.433E-01 

.444E-01 

.249E-01 

.489E-01 

.424E-01 

.411E-01 

AT  VEC= 

S CAV 

CLAS:  3 

.709E+00 

.S74E+00 

.227E+00 

.809E+03  .211E400 

.470E-01 

.783E-01  .405E400 

.770E-01 

.379E+00 

.165E+C0 

■104E+00 

.151E400 

.140E+00 

AT  VEC= 

4 CSDL  CLAS=  3 

.130E-01 

.314E-01 

.343E-01 

.549E-0I  .835E-01 

. 184E-01 

.315E-01  .390E-01 

■443E-01 

.451E-ei 

.292E-01 

.435E-01 

•498E-01 

.598E-01 

AT  VEC= 

7 

CLAS=  98 

.539E+C0 

.441E+00 

. 134E+60 

.244E400  .920E-01 

•500E-02 

.220E-01  .140E+00 

.100E-01 

.103E400 

.530E-01 

.380E-01 

.730E-01 

.440E-01 

AT  VEC= 

8 

CLAS=  99 

.726E+00 

.919E+00 

.404E+00 

.8S8E400  .477E+03 

.251E403 

.374E400  .444E403 

.304E+03 

.459E403 

.357E+00 

.339E+00 

.399E400 

.402E+00 

LIST. II  FROM 

1 OF  17 

11  tmu 

1100  : 

1201  2100 

2201  3100  3201  9 8000  99000 

0 0 0 

0 0 

0 

3 1 

4 

5 4 

7 8 9 

10  2 

12  13  14 

15  14 

17  1 
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..XFRVEiFEATilCUC 


FORMAT 

ESTER  FILE  ASH  FUNCTION 
•FI 

ENTER  XMIT  PARAMETERS 
AAAA 
<DM 

FEAT  FILE  1000 
CLAS  FILE  100031 
NEXT-RECORD 
NN=  RECORD- ID 

•01 

SELECT  CLASS=  | re=  i 

PICK  VECTORS  FROM  1 TO  60 

KiVWtVVVi...(15) 

•Cl  001  100'? 

PICK  VECTORS  FROM  2 TO  60 
KiVVViVVVi,. . (15) 

•Ci010 

PICK  VECTORS  FROM  11  TO  80 
KiVVViVVVi. ..(151 

•Q 

XMIT  OUTPUT  14  DIMENSIONS 
STOP 

.136  CP  SECONDS  EXECUTION  TIME 
. .REMIND .ETTE 
COPTSEFiBTTE 


U0D000000101C7EF44D25A4931A951AI455E4761DB 
!l0D010000102ClE6itD54t4F4E9C5?B25F5E95SA0B 
:10D020080103937E94899A927966A0718498EIAE52 
■•10D030f00104AE9344AB77615DA17D925C6D50639F 
:10D040000105D9CF3FC049494AD862BE444F444D0D 
:l0D050000106F6CE25EllA351C£i'4DC373D2C2E12 
!l0D060000107EDAC42CD5E6F42E8f JAE35572E4E7L 
:10D070000108D7E93EC53C4E3AE53DD8524F505S0D 
:l0D0o00001O?CAC95996DI58726ADE476AC?ArC85D 
‘10D09000010AF2D73CD1503432E950AE3F574D616E 
: 1000000  IFF 


K-1D 


— - 


r 


•rftU,FE*T,N£UC 

FWI«T 

Er;~rc  FILE  ~ND  FUNCTION 
«CX 

E’vER  XMI”  PYROMETERS 
Mee 

tceee 

cias  file  10O0O1 

NEXT-PECOPD 
NH»  RECORD- ID 

tee 

XMIT  OUTPUT  14  DIMENSIONS 
STOP 

.14-1  CP  SECONDS  EXECUTION  TIME 
• .REWIND. BYTE 

..COPvSlF.BYTE 


» I 0CPC0OOF  52E2EE 1 2222SS2626ES2  323b 1 3232S«BS 
I1OCC1COO23234F21219E2C2C663O309D2Y2OSC2SE4 
t 10CO2OOO2S6C2F2Fb532326E31 3tF 1OSO2ECOC0C47 
I10CO3OeO290BOEE614142P2626'.  ;0FOF1D1414D33B 
! 10CC40001C 1C2D252SC61F 1F2E16163322223B215C 
I 10COSO0O21422B2EE91 111ES1111321212DF17171E 
I 1OC0S0003424242B13132S16ISD1 1E1E392626CES2 
UOC('?eO02O£O2Biei8372424  3D272?442A2ReO(W15 
uooueeeiFF 


m 


'%  *•  ■ 


TOTAL  • *ISTA<ES*  699  * TOTAL  7.  CORRECT*  91.5972 
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TOT *t  • 1IST4<ES*  429  TOTAL  X CORRECT*  89*5417 
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